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Version: *v04-000' 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oepokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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Functional description: 
This module displays entries logged by pudriver and dudriver. 


Modified by: 
v03-016 sanccyt Sharon A, Reynolds 7-Aug-1984 
Fixed a bug in the starting buffer location for the 


call the dumpreg in SDI tor. ERRORS routine. 


v03-015 SAR0287 Reynolds 6-Jul-1984 
Added call for 108? ¢ HB dependent information. 

V03-014 SARO277 Sharon A. Reynolds 20-Jun-1984 
Added TMSCP support. 

v03-013 SAR0G Sharon A. Reynolds 21-Mar-1984 


pAnoet : bug in the $rrveL SER of the volume serial 
number in the MSLGS$L_VOL_SER routine. 


v03-012 SAR0200 Sharon A. Reynolds, 20-F eb-1984 
Added an SYE update that 
- Corrected pete srablont in AZTEC host access 
errors. 


Added 2 ECO. This 390" controller support for 
rt it 943595593 979999 
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S88383883333333339 
QERFUN WS Sener un—o 


iSong 92:67:26 SRASTER:EERF-SRcIMScP.FOR;1 Ae 2 


v03-011 SANOI36 Sheren A. Reynolds, 11-0ct-1983 
Auded an SYE upge fet 

Corrects the fa ay code output. 

Adds extra controllers to ‘last fail’ dispatching, 


- non od Ig device/controller specific code 
x 
- Adds AlieC “extensions. 
v03-010 SAR0087 haron A. Reynolds, 20-Jun-1983 
Changed the carriage control in the ‘format’ statements 
for use with ERF. 
v03-009 BP0009 Brian Porter, 28-F EB-1983 
Added ra60 byte 15 descriptions. 
v03-008 BP0008 Brian Porter 03-JAN-1982 


Corrected spelling error which resulted in the first 
longword of the sdi status being displayed as zero's. 


v03-007 BP0007 Brian Porter, 15=DEC-1982 
Corrected symbol error value for data errors and 
sdi data being incorrectly reported. 
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v03-006 BP0006 Brian Porte 15=NOV-1982 01 

Added ra60 etc. added di “Stuff to disk transfer error. " 

v03-005 BP0005 Brian Porter, 08-NOV-1982 o1 

Corrected symbol error value for data errors. ot 
v03-004 BP0004 Brian Porter, 20-AUG-1982 015 

Corrected fortran error. at 
v03-003 BP0003 Brian Porter, 04-MAY-1982 Ff 
Corrected group bug. 16 
v03-002 BP0002 Brian Porter, 22-APR-1982 Bie 
Modified invalid command. 16 
v03-001 BP0001 Brian Porter, 12-APR-1982 13 
Added unit available, duplicate unit and invalid command 16 
message support. 16 

oe 1 
@ i 
i Subroutine MSCPS$K_OP_AVATN (Lun,expand) ae 
1 include ‘src$:msghdr.for /nolist’ 17 
12 if 
165 byte Lun 1 
187 logical*1 expand 1 
189 integere4 reserved! 13 

171 integer* mscp$w_unit 1 
172 prererss reservéde 018 


MSCPS$K_OP_AVATN 
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10 


15 


byte 
byte 


Integerss 
integer* 
integer* 


integere4 
integer*4 
integers4 
integer*4 


equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 


Boceen oqcede 
reserved 
reserved4 
mscp$w_mult_unt 
mscp$w_unt_Tflags 
undefined 
mscp$l_unit_id1 
mscest unit id2 
mscp$l_media_id 


(emb(38) ,reserved1) 
(emb(42) 


omscp$w_mult_unt) 
-mscp$w_unt_ flags) 
ounde fined) 

(emb (58) ,mscp$l_unit_id1) 
(emb(62) ,mscp$l_unit_id2) 
Cemb (66) ,mscp$l_media_id) 


ie reserved4) 
) 


call Linchk (lun,1) 


write(lun,10) 
format(' °*,:) 


call mscp_first_twelve_bytes2 (lun,expand) 


Entry INVALID_MSCPS$$K_OP_AVATN (Lun,expand) 


call mscp$$w_mult_unt (lun,mscp$w_mult_unt) 


' 


call mscp$$w_unt_flgs (lun,mscp$w_unt_flgs,expand) 
call Linchk (lun,1) 
write(lun,15) undefined 


format ( 


-t8, "UNDEF INED* t24,28.8) 


is 
= e = 
~Sep- 


198. 92:67:35 


call mscp$$q_unit_id (lun,mscp$l_unit_idl,mscp$l_unit_id2,expand) 


call mscp$$l_media_id (lun,mscp$l_media_id,expand) 


return 
end 
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MSCPSSK_OP_AVATN 


PROGRAM SECTIONS 


veeoctags 0:34:13 


VAX=11 FORTRAN Ri h a 


DISKSVMSMASTER: CERF .SRCIMSCP.FOR; 1 


Name Bytes Attributes 
SCODE 193 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SPDATA PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
SLOCAL PIC CON ast LCL NOSHR NOEXE RD WRT LONG 
EMB 51 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 828 
ENTRY POINTS 
Address Type Name Address Type Name 
0-00000042 INVALID_MSCPS$K_OP_AVATN 0-00000000 MSCPSS$K_OP_AVATN 
VARIABLES 
Address Type Name Address Type Name 
ae ssa a' a4 I*4 EMBSL_HD_SID Ham's 44 I*2 EMBSW_HD_ENTRY 
I*2 EMBSW_HD_ERRSEQ AP-00000008@ L*1 EXPAND 
AP @t*l LUN - 4 OO2ZE L*1 MSCPSB_OPCODE 
2 I*6 MSCPSL_MEDIA_I - OSA I*4 MSCPSL_UNIT_ID1 
3E I*4 MSCPSL_UNIT_TD2 -00000032 iss MSCPSW_MUL T 
A I*2 CPS$W_UNIT -00000054 I*2 MSCPSW-UNT FLAGS 
1*4 MSCPSW_UNT_FLGS -00000026 I*4 RESERVED! 
-0000002C ss RESERVED2 -Q0000002F L*1 RESERVEDS 
-00000030 I*2 RESERVED4 -00000056 I*4 UNDEFINED 
ARRAYS 
Address Type Name Bytes Dimensions 
a sii L*l EMB ate (0:511) 
-00000006 I*4 EMBSOQ_HD_TIME (2) 
LABELS 
Addiess Label Address Label 
1-00000004 10° 1-00000009 15° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
LINCHK MSCPSS$L_MEDIA_ID MSCP$$Q_UNIT I 
MSCPS$W_MULT_UNT MSCPSS$W_UNT_FCGS MSCP_FIRST TToetve _BYTES2 
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Subroutine MSCPSSK_OP_ACPTH (Lun,expand) 


include ‘src$:msghdr.for /nolist' 


byte lun 

lLogical*1 expand 

integers4 reserved! 

integer* mscp$w_unit 

{ntesered reserved? 

byte maceee .qgeeds 

byte reserved 

integer*2 reserved4 
equivalence Cemb(3 ie reserved!) 
equivalence Cemb(4 )Smscp$w_ unit) 
equivalence (emb(44) ,reserved2) 
equivalence fenb(47) smscpSb sogsode) 
equivalence 47), reserve 
equivalence (emb (48), *reserveda) 


Entry MSCPS$K_OP_DUPUN (Lun,expand) 
call Linchk (Llun,1) 


ld aes 
format(’ °,:) 


call mscp_first_twelve_bytes2 (lun,expand) 


Entry INVALID_MSCPSS$K_OP_ACPTH (Lun,expand) 
Entry INVALID_MSCPSS$K_OP_DUPUN (Lun,expand) 


return 
end 


VAX=-11 FORTRAN 
DISKSVMSMASTER: 


967526 


RD NOWRT LONG 


WRT LONG 


D_MSCPS$SK_OP_DUPUN 
K-OP_DUPUR 


HD_ENTRY 


RscPse OPCODE 
RESER 


RVED1 


MSCPSSK_OP_ACPTH $ep-1984 
1g-Fep-1944 
PROGRAM SECTIONS 
Name Bytes Attributes 
9 SCODE 97 PIC CON REL LCL SHR HH 
SPDATA 9 PIC CON REL LCL SHR NOEXE 
§ SLOCAL #3 PIC CON REL LCL NOSHR NOEXE 
EMB 512 PIC OVR REL GBL SHR NOEXE 
Total Space Allocated 642 
ENTRY POINTS 
Address Type Name Address Type Name 
INVALID OP atPt aor ACPTH - 57 INVA 
8-00000005 sSCPSSRTOP $-00000008 =—«sSCPSS 
VARIABLES 
Address Type Name Address Type Name 
3-0000 ie hae 
AP- ba L* 
- F L*1 
- ; 1*4 
-0000002F L*1 RESERVEDS 
ARRAYS 
Address Type Name Bytes Dimensions 
$5000 0000 L*l EMB a | le 
=00000006 I*4 EMBSQ_HD_TIME (2) 
LABELS 
Address Label 
1-00000004 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
LINCHK 


Type Name 
MSCP_FIRST_TWELVE_BYTES2 


Leas 


SRCIMSCP. FOR; 1 
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$0) 


if Feo-1 984 92:83:38 —BaScdimshasten-teaessncamscp.ror:1 Pee” 


call Linchk (lun,1) 


write(lun,10) 
10 format(’ ',:) 


call mslg$$l_cad_ref (lun,mslg$l_cmd_ref) 
call asig$$w_seq_num tun mel aoe seq_num) 
call mslg$$b_format (lun,mslgSb 


call mslg$$b_flags (lun,mslg$b_ flags) 
call aslg$$w_event tyn.ms |oSy event) 
g$T_cnt_id1,mslg$l_cnt_id2) 


format) 


1% 

if 

Subroutine MSLGSK_CNT_ERR (Lun,packet_length) 1 

1g 

include :src$imsghdr. for /nolist’ 1$ 

include 'src$:embimdef.for /nolist’ i} 

1$ 

byte lun i} 

5 ntegert4 acket_length 1§ 
140 inteseres hs igSt~cnd-ret i} 
AeG peor reserved 1 
163 integer ms \g$w_seq_num 0 : 
145 byte msl g$b_ format 0 ¢ 
146 byte ms\g$b_ flags 4 : 
148 integer*2 msl g$w_event 0 : 
150 integers4 mslg$l_cnt_id1 6 
! 1 integers4 msl g$l—cnt_id2 ° : 
1 Q byte ms\g$b_cnt_svr | 
' : byte mslg$b_cnt_hvr 0 
| integere2 Lastfail_code ) 
1 equivalence (emb (38) ,mslg$l_cmd_ref) 1 
139 equivalence Cemb (4 ) reserved) 1 
160 equivalence (emb (44) ,mslg$w_seq_num) 1 
161 equivalence (emb (46) ,ms\g$b_ format) 1 
16 equivalence (emb(47) ,msg$b_ flags) } 
16 equivalence (emb (48) .mslg$w_event) ‘ 
164 equivalence (emb(50) ,msig$l_cnt_id1) ¢ 
165 equivalence Cemb(54) ,msig$l_cnt_id2 4 
166 equivalence Cemb (58) ,msig$b_cnt_svr) < 
16 equivalence Cemb(5 > msl ate cnt_hvr) ¢ 
168 equivalence (emb (60), Last faTl_code) ‘ 
if ! 
i | 
178 
17% 
i : 
He 2 
is 2 
ie 2 
188 i 


SOOOSOSSOSOOOSSOSOOOSOSOSSOSSSOSSO: 
PROPIPIPPOPEPIPIPINPIPININPININININNNNAVNNNNNNNNNNNT 


call mslg$$q_cnt_id (lun.ms 


MSLGSK_CNT_ERR 


& 


werent 09:24:13 


1 call msig$$b_cnt_svr (lun,msig$b_cnt_svr) 
; call mel gespcent hur (tunsmstg bocnt_hvr) 
1 Cc 
i : Device dependent extensions... 
! If (packet _length .GT. 22) then 
1 ft ¢ 
1 ConbSb_ta_class -EQ. "80°X) ! Bus device class 
i CombSb_m_type £0, 3 ! UDASO, UQPORT 
i i emb$b_lm_type .£0. 4 ! UDASOA 
1 1 emb$b_lm_type .£0. 6) ! TU8IP port 
1) then ~ = pe 
gett UDA_LASTFAIL_ERROR (Lun, lastfail_code) 
Call LINCHK (Lun,3) 
Write (lun,15) *€ONTROLLER DEPENDENT INFORMATION’ 
ormat (/° ‘,a,/) 
att DUMPREG (Lun, (((packet_length = 22) +3)/4),emb(60)) 
i 


ea 


5 
S 


RCIMSCP. FOR: 1 


Page 
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MSLGSK_CNT_ERR 


PROGRAM SECTIONS 


Total Space ALL 


ENTRY POINTS 


Address Type 
0-00000000 
VARIABLES 
Address Type 
+ 
+f; 
i A D( 
00 
ARRAYS 
Address Type 
L*1 
Hae 
1*4 
LABELS 
Address Label 
1-00000028 10° 


ocated 


Name 
MSLGSK_CNT_ERR 


MSLGSW_EVERT 
PACKET_LENGTH 


Address 
1-0000002D 


K 14 
16-Sep-1984 00:24: VAX-11 FORTRAN V3.4-56 
$7087 1382 90:33:58 DISKSVMSMASTER: CERF SRCIMSCP.FOR: 1 
Bytes Attributes 

29 PIC CON REL LCL SHR EXE RD NOWRT LONG 

5 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 

16 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 

51 PIC OVR REL GBL SHR NOEXE RD WRT LONG 


Address Type Name 
00000014 L*1 EMBSB_LM_NAMLNG 
I*4 EMBSL_HD_SID 
~ I*2 EMBSW_HD_ENTR 
- 4 I*2 EMBSW_LM_MSGTYP 
- C I*2 LASTFAIL CODE 
- B Lt LG$8_CAT_HVR 
- F L*l MSLGSB-FLAGS 
at $ I*4 MSLGSL_CMD_REF 
- I*4 MSLGSL_CNT_ID2 
-0000002C iss MSLGSW_SEQ_NUM 
-0000002A I*2 RESERVED 
Bytes Dimensions 
512 (0:511) 
460 (460) 
8 (2) 


Label 
15° 


Page 
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VAX=11 FORTRAN Y3.4-5 Page 1 
SEK SUMGRASTeR ERE cecomscp.ror:;1 Pe9e 1° 


$ep-1984 00:24:18 


if- 


Type Name 
L 
M 
M 
U 


FUNCTIONS AND SUBROUTINES REFERENCED 
N 
E 


MSLGSK_CNT_ERR 


M14 
16-Sep-1984 00:24:1 VAX=11_ FORTRAN mS 
et 99: 7:2 DISKSVMSMASTER: CERF .SRCIMSCP.FOR;1 
1 
1 
Subroutine MSLGSK_BUS_ADDR (Lun,packet_Length) 
1 
include ‘src$:msghdr.for /nolist' 9 
include ‘src$:emblmdef.for /nolist’ , 
1 
byte lun , 
140 ntegers4 acket_Length 1 
14) ntegere as (gsl-ced-ref , 
128 eee reserved! 
132 integer* msl g$w_seq_num 8 
168 byte msl g$b_ format 8 
M4 byte ms \g$b_ flags Os 
125 integere2 ms g$w_event Bs 
151 integers4 mslg$l_cnt_id1 03 
; § integers4 mslg$l_cnt_id2 8 
154 byte mslg$b_cnt_svr 65 
, 5 byte mslg$b_cnt_hvr 03 
; 8 integert2 reserved2 8 
139 integers4 mslg$l_bus_addr 03 
161 equivalence (emb(38) ,mslg$l_cmd_ref) 03 
166 equivalence (emb(42) ,reserved1) 0 
16 equivalence (emb(44) , msl g$w_seq_num) 0 
164 equivalence (emb (46) ,mslg$b_ format) $ 
165 equivalence (emb(47) ,mslg$b_ flags) 
166 equivalence (emb (43) ,mslg$w_event) 2 
16 equivalence (emb(50) ,msig$l_cnt_id1) 
168 equivalence (emb(54) ,msig$l_cnt_id2) 
1g equivalence (emb (58) ,mslg$b_cnt_svr) 
170 equivalence (emb(59) .mslg$b_cnt_hvr) 
171 equivalence (emb (60) ,reserved2) 
ime equivalence (emb (62) ,mslg$l_bus_addr) 
174 
At? call Linchk (lun,1) 
179 write(tun,10) 
178 10 format(’ *,:) 
1 call mslg$$l_cad_ref (lun,msig$l_cmd_ref) 
181 call mslg$$w_seq_num oie big seq_num) 
: ¢ call mslg$$b_format (lun,msig$b_Tormat) 


MSLGSK_BUS_ADDR 


Oona 
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rr er ar ir Sir Sarr Sir ars 
RUNS SOMNOnrumOoSe 
OOO 


PROPIPIPIPINIPDPUNIPIPIPIPOPUNIPUPINIPINUNPI NUNN 


Mrororer 


i 
call asi gssb._flags {jun as gab. flogs) 
call msl event (Lun,msl event) 
call ns lossqrent. id (lunsmstg$T cnt. id1,msig$t_cnt_id2) 
colt msig$$b_cnt_svr (lun,msig$b_cnt_svr) 
l 


ms(g$$b_cnt_hvr ‘Tekst he hve) 


msig$$l-bus_addr (lun.ms buS_addr) 


Device dependent extensions... 
If (packet length .GT. 28) then 
Call LINCHK 


{hun, >? 
Write (Lun,150) "CONTROLLER DEPENDENT INFORMATION’ 
Format (/° ‘*,a,/) 


f ¢ 
oapeh_.ta_shees -EQ. 1) ! Disk device class 
: (emb$b_lm_type -EQ, 23 ! AZTEC removable 
1 emb$b_lm_type .£0. 24) ! AZTEC fixed 
1) then 


Call MSLGSK_BUS_ADDR_AZTEC (Lun) 

haa Pp tn be expanded at this point to 
ype’’ support. 

Else 

seh) pewaes (Lun, (((packet_length - 28) +3)/4),emb(66)) 

Endif 

Cont inue 


return 
end 


14 
Sep-19 0:26: VAX-11 FORTRAN V3.4-56 
at 90:89:58 DI SKSVMSMASTER: CERF .SRCIMSCP.FOR: 1 


MSLGSK_BUS_ADDR ib-fe Sep-1 4: VAX-11 FORTRAN V3.4=-56 Page 13 
~3007 1387 99: 3 4g DISKSVMSMASTER: CER RF .SRCIMSCP.FOR;1 . 
PROGRAM SECTIONS 
Name Bytes Attributes 
9 SCODE 294 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SPDATA 5 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 16 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB 51 PIC OVR REL G3L SHR NOEXE RD WRT LONG 
Total Space Allocated 1026 


ENTRY POINTS 
Address Type Name 


0-00000000 MSLGSK_BUS_ADDR 
VARIABLES 
Address Type Name Address Type Name 
-00000010 L*1 EMBSB_LM_ i -00000014 L*1 EMBSB -th. NAMLNG 
-00000011 L*1 EMBSB_LM_TYPE -00000000 14 EMBSL_ 
-00000015 CHAR EMBS$T “tR- “NAME -00000004 is EMBSW_ HD ENTRY 
ms sis ie iss EMBSW_HD_ERRSEQ -00000024 I*2 EMBSWLM_MSGTYP 
-00000012 I*2 EMBSW"L I AP-00000004@ Lt] L 
RON oe L*1 MSLGSB_CAT_HVR “82008 A L*l MSLGSB_CNT_SVR 
F L*l MSLGSB_FLA “38 QOOO2E L*1 MSLGS$B_FORMAT 
wis sisi I1*4 MSLGSL_BUS_ADDR -00000026 I*4 MSLGSL_CMD_REF 
I*4 MSLGSL_CNT_ID1 m4 44 6 I*4 MSLGSL_CNT_ID2 
I*2 MSLGSWEVERT -0000002C I* msLesue SEQ_NUM 
AP Ba I*4 PACKET EbSNGTH -0000002A I*2 RESERVED! ~ 
3-0000003C I*2 RESERVE 
ARRAYS 
Address Type Name Bytes Dimensions 
mss 44 94 EMB 51 £9: 511) 
26 EMBSB_LM_MSGTXT 460 (460) 
-00000006 EMB$Q_HD_TIME 8 (2) 
LABELS 
Address Label Address Label Address’ Label 
1-00000028 10° 1-0000002D 150° el 200 


MSLGSK_BUS_ADDR I§-§e Sep- VAX=11 FORTRAN V3.4-56 Page 14 
=e Re Ora dg ed WGRRS Ten PERE cecamscp.ror:1 2° 
FUNCTIONS AND SUBROUTINES REFERENCED Bt 
Type Name Type Name Type Name 
DUMP RES LINCHK MSLG$$B_CNT_HVR 
MSLGS T_SVR MSL GSSB_F FLAGS MSLGSSB_ =FORRAT 
MSLGSSL~ “BU “ADDR MSLGSSL-CMD_REF MSLG$$Q~ CNT 00¢ 
MSLGSSW~EVENT MSLG$$W~SEQ"NUM MSLG$K_BUS "ADDR _ALTEC 4 


$8S888888888SSSSSSSSSSSSSSSSSSSsss 
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Moree tees PR: 8Fi38 «NaS csumenasten: tear secamscp.ror:1 Pee" |? 


Subroutine DISK_TAPE_TRANSFER_ERRORS (Lun,packet_length) 


include  orezrnagnee . tee /nolist' 
include ‘src$:emblmdef.for /nolist' 


1 
1 
, byte lun 
1 nteger*4 acket_length 
1} integeres ns igSt~cmd-ret 
141 jntegers¢ msl g$w_unit 

Big integer* msl g$w_seq_num 

bide byte msl g$b_ format 

3142 byte ms\g$b_ flags 

O14? integer*2 msl g$w_event 

$109 integer*4 mslg$l_cnt_id1 

3139 integers4 msig$l_cnt_id2 
136 byte msl g$b_cnt_svr 
137 byte mslg$b_cnt_hvr 

B13? integer*2 ms lg$w_mult_unt 

0137 integere4 mslg$l_unit_id1 

3138 integer*4 mslg$l_unit_id2 

O16 byte mslg$b_unit_svr 
161 byte msig$b_unit_hvr 

O16¢ byte ms g$b_leveT 
197 byte msig$b_retry 
165 integer*4 msig$l_vol_ser 
166 integer*4 ms\g$l_header 
168 equivalence (emb (38) ,.mslg$l_cmd_ref) 
199 equivalence (emb (42) ,mslg$w_unit) 
176 equivalence (emb (44) ,mslg$w_seq_num) 
171 equivalence (emb (46) ,msig$b_ format) 
Ne equivalence (emb (47) ,mslg$b_ flags) 
17 equivalence pomp (23) -ms Gav nevent) 
174 equivalence (emb(50) ,mslg$l_cnt_id1) 
175 equivalence (emb(54) ,msig$l_cnt_id2) 
176 equivalence (emb(58) ,msig$b_cnt_svr) 
17 equivalence Cemb(59) ,msig$b_cnt_hvr) 
178 equivalence (emb (60) ,ms\g$w_mul E_unt) 
1 equivalence (emb(62) ,.msig$l_unit_id1) 
1 equivalence (emb (66) ,msig$l_unit_id2) 
181 equivalence (emb(70) ,mslg$b_unit_svr) 
1 equivalence (emb(71) ,msig$b_unit_hvr) 
18 equivalence (emb(72) ,msig$b_leveT) 


& 
e 


— +) 2) st 


meme ee eee 


lelelelelelelelolelalo) 


iit cient f 


15 
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~35p7198s 92:07:20 DIekSUMSMASTER: FEAF SRcamscp.For:1 "eee 6 
equivalence (emb(73) ,mslg$b_retry) 
5 equivalence Cenb (74) ‘ms g$t—vol Ser) 
equivalence (emb(78) ,msig$l—header 


call Linchk (lun,1) 


write(lun,10) 
10 fernatt® *.35 


call msig$$l_cmd_ref (lun,msig$l_cmd_ref) 
ms \g$Su_unit (Lun,ms(g$w_unTt,. true.) 
call msig$$w_seq_num (Cun,ms l§ w_seq_num) 


et a 4 2 dd td 3 dd tt 


BELESLANS 
o 
& 
- 
= 


call mslg$$b_ format kun melee format) 
call mslg$$b_flags (lun.msigSb_flags) . 
msig$$w_event (lun,mslg$w_event) 


mslg$$q_cnt_id (Lun,mslg$l_cnt_idl,mslg$l_cnt_id2) 
call mslg$$b_cnt_svr (Lun,mslg$B_cnt_svr) 
call mslg$$b_cnt_hvr (Llun,msig$b_cnt_hvr) 


_ 


oO 


oOo 

Ssss 
o oO 
os ® 
i — 
- - 


call mslg$$Sw_mult_unt (lun,mslg$w_mult_unt) 
ms g$$q_unit_id (Lun,mslg$l_Unit_Td1,mslg$l_unit_id2,.true.) 
call msig$$b_unit_svr (Lun,mslg$B_unif_svr) 


| 
call mslg$$b_unit_hvr (lun,mslg$b_unit_hvr) 
call mslg$$b-level (Lun.ms(g$b_level) | 
call msig$$b_retry (lun,msig$b_retry) 


SRLESF 


At this point the disk and tape transfer error entries differ, 
determine whether outputting a disk or tape transfer error and 
call the appropriate routines. 


ee ed ed ed ed ed ed 
AOOOH 


CONAUES WN © ODNOUS WN O 


If (mslg$b_format .£Q. 2) then ! Disk transfer error 
call msig$$l_vol_ser ieuneme Lest vol_ser) 
l_Reader) 


Else if (mslg$b_format .EQ. 5) then ! Tape transfer error 
all MSLGSSL_GAP_CNT (Lun,emb(74)) 
th FORMATTER_VERSIONS (Cun, emb(78) ,emb(79)) 


call mslg$$l—header (Lun,mslg 
C 
C 
End 


C 
3 Device dependent extensions... 
If (packet_length .GT. 44) then 


wr 


wn 


C 
C Determine whether this entry applies to a TU81 transfer and 
; cet’ the ageropr late routine to decode/output the device 

e 
C 


pendent information. 


SOSOSOSOOOSOSOSOOSOSOOSOSOSOSOOSSOSOSOOSOSSSOOCOSSOSOOOSOOSOOOOOOOOOCOOOOOOOOOO 


If ¢ 
40 1 (mslg$b_format .£Q. 5) ! Tape transfer error 


F 15 
DISK_TAPE_TRANSFER_ERRORS 16-Sep-1 126: VAX-11 FORTRAN V3.4-56 Pa 17 
meets Pi 90:83:58 DISKSVMSMASTER: CERF, SRCIMSCP.FOR:1 ot 
4 1 .AND 
4 CembSb_im_type EQ. 8) ! TU81 device 
4 Call TU81_SENSE_BYTES_DECODE (Lun) 
45 epee 
i End 
ae 
4 C Output the controller or device dependent information in a 
? : hex longword format. 
¢ Call LINCHK (Lun,3) 
Write (lun,15) ‘CONTROLLER OR DEVICE DEPENDENT INFORMATION’ 
: 15 Format (/° ‘,a,/) 
gat) punrnse (Lun, (((packet_length = 44) +3)/4),emb(82)) 
$8 return 
60 end 


PROGRAM SECTIONS 
Name Bytes Attributes 
455 PIC CON REL LCL SHR EXE RD NOWRT LONG 
g6 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
§ SLOCAL ; 4 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 


Total Space Allocated 1337 


ENTRY POINTS 
Address Type Name 
0-00000000 DISK_TAPE_TRANSFER_ERRORS 


; 
i 
: 
: 


VARIABLES 
Address Type Name Address Type Name 


SOOOOOCOCCOOCOoOooeoO: 


ee a eh ad et ns td 


DISK_TAPE_TRANSFER_ERRORS 


ARRAYS 
Address Type Name 
L*1 €EMB 
L*1 EMBSB_LM_MSGT 
I*4 EMBSQ_HD_TIME 
LABELS 
Address Label Address 
1-00000036 10° 1-00000038 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type 


*4 MSLGSL-UNIT 


Name 


DUMPREG 
MSLGSS8_CNT_KVR 
G RAT 


MSLGSSW"MULT _UNT 
TUB1. SERSE-BYTES_ DECODE 


#4 MSLGSL_CNT_1D2 


VOLS 
e MSLGSW" T_UNT 
35 mstesu-UNtT” 


1 


| 
Hn 


~Seo-1904 90:94:12 


*4 MSLGSL_HEADER 


4 fm “UNIT 
3 RSLGSWCEVENT 


NSLGSU~SEQ_NUM 
PACKET-LENGTH 


Bytes Dimensions 
51 (0:511) 
if (283 

(2) 


Type Name 


FORMATTER VERSIONS 
MSLGSSB_CRT_ SVR 


D 
MSLGS$$Q-UNIT_ID 
MSLGS$W~SEQ_RUM 


Type 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


LINCHK 
MSLGS$$B_FLAGS 
MSLGS$$B_RETRY 


MSLGSSW_EVENT 
MSLG$$W_UNIT 


- 
wn 


¥3 6-36 Page 18 
ERF .SRCIMSCP.FOR;1 


felolelolololelelelolelolo lala lelolololololelololololo) 


il aaa a a 


oscssssesssssssse 


-—— 
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MS 


1 
, 
Subroutine SDI_STI_ERRORS (Lun,packet_length) 
1 
include ‘src imsghdr . for /nolist’ } 
include ‘srcS:emblmdef.for /nolist' a1 
1 
byte lun et 
135 ntegere4 acket_length 1 
140 integered ns igSt~cnd-ret ; 
14 integer ms\g$w_unit 1 
168 aceveres asl sSu-seq_nus a} 
145 byte ms g$b_ format 01 
146 byte ms |g$b_ flags 8 
148 integer*2 ms lg$w_event at 
130 integers4 msl g$l_cnt_id1 01 
; 1 integer*4 msig$l_cnt_id2 Bt 
138 byte ms g$b_cnt_svr of 
136 byte ms \g$b_cnt_hvr 05 
136 integere2 ms g$w_mult_unt Oe 
138 integers4 msig$l_unit_id! 051 
159 integere4 msl g$l-unit_id2 3 
161 byte ms g$b_unit_svr 8 
168 byte mslg$b_unit_hvr 
166 integere2 reserved 03 
1 integere4 asig$l_vol_ser 
189 integereé aslS\ “header 
bs integer*4 as\g$l_sdii 
1 integere4 aslg$l_sdi 
; ° integers4 mslg$l_sdi 
176 equivalence (emb(38) ,msig$l_cmd_ref) 
17 equivalence (emb (42) ,mslg$w_unit) 
174 equivalence Cemb(4 } «msi gev_seq_num) 
175 equivalence gomp $26} -mstg b_ format) 
176 equivalence (emb(47) ,mslg$b_ flags) 
17 equivalence (emb(48) ,msigSu_ ont? 
178 equivalence (emb(50) ,masig$l_cnt_id1) 
1 equivalence (emb(54) ,msig$l_cnt_id2) 
1 equivalence (emb (58) ,msig$b_cnt_svr) 
1 equivalence Cemb(59) .msig$b_cnt_hvr) 
1 ¢ equivalence Cemb ( )imsla vanul unt) 
18 equivalence (emb(62) ,mslg$l_unit_idl) 


15 
anes CRIM M808 MERAERRIL HE Efeamcetoms OP 


1 equivalence (emb (66) ,msig$l_unit_id2) 
185 equivalence (emb(70) ,msig$b_unit_svr) 
1 equivalence (emb(71) ,mslg$b_unit_hvr) 
1 equivalence (emb(72) ,reserved) 
1 equivalence (emb(74) ,msig$l_vol_ser) 
1 equivalence Cemb(78) ,msig$l_header) 
1 equivalence (emb (82) ,msig$l_sdil) 
1 equivalence Cemb (86) ,.msigSl_sdi2) 
; equivalence Cemb(90) ,msigSl_sdi5) 
1 
136 ce a {neh Clunotd 
i 
130 10 format(’ ',:) 
1 call msigS$l_cmd_ref (lun,msig$l_cmd_ref) 
00 call ms tassununit (lun ns(gSu-yntt, rue.) 
33 call msig$$w_seq_num (Cun,ms tg w_seq_num) 
08 call mslg$$b_format (lun,mslg$b_ format) 
call mslg$$b_flags (lun,msig$b_flags) 
5 call msigS$w_event (lun,msig$w_event) 
0 call mslg$$q_cnt_id (Lun,msig$l_cnt_idl,msig$i_cnt_id2) 
08 call mst osstrcnt cour {lunemste8S cnt sur) . 
44 call asig$$b_cnt_hvr (lun,msig$b_cnt_hvr) 
i? call msi g$$u_mult_unt (Lun,msl ou mult unt) 
\¢ call mslg$$q_unit_id (Lun,mslg$l_Unit_Tdl.mslgSl unit_id2,.true.) 
1 call mslg$$b_unit_svr (Lun,mslg$6_unif_svr) 
13 call mslg$$b_unit_hvr (Lun,msig$b_unit_hvr) 
1 If (asl 9se format .£Q. 3) then! SDI comm error - mslgSk_sdi 
1 call msl(g$$l_vol_ser (lun.mslg$l_vol_ser) 
18 call msig$$l—header (lun,msig$l_Reader) 
\ call msig$$z_sdi (Lun.ms(g$l_sdT1,msig$l_sdi2,mslg$l_sdi3) 
1 ise if ¢ 
§ : asigSb_format .EC. 6 ! STI comm error - mslg$k_sti_err 
3 \ msl g$b_format -EQ. 7 ! STI drive error - mslg$k_sti_del 
$ \ as \g8b_ format EQ. 8 ! STI formatter error - mslg$k_sti_fel 
Call MSLGSSL_GAP_CNT (Lun,emb(74)) 
engi! FORMATTER_VERSIONS ((un,emb(78) ,emb(79)) 
§ C 
: Device dependent extensions... 
5 If (packet_length .GT. 42) then 


f ¢ 
{ onpte_ta_cless EQ. 2 ! Tape device class 
1 emb$b_lm_type .£0. 6 ! TA78 device 


40 


- 8) 
ORMATTER_§ 


AND. 


rfobeoct9Bs 00:34:12 yaNedt fon 


CIMSCP.FOR; 1 


! $T1 comm or cad failure 


SFUL > RE SPONSE (tun) 
?) shee 


sper a oA. formatte 


(mslg$b_format .LE. 


$D1_ST1I_ERRORS 
4 1) then 
4 i If (msl $b format .€Q. 6) t 
ob ; Call TA78_UNSU 
i Else if ¢ 93 format .£Q. 

4 Call TA78_EXTENDED_DRIVE pi 
4 i Else if (mslg$b format .€ 

9 Call ANB “EXTENDED. FORMA 

; i Endi 

4 Catt LisceR 

5 Write (lun,] 5) ““eevace DEPENDENT INFORMATION’ 

15 Format (/' 

§ He cte Sb_format .GE. 6) 

60 l= $59 . i 

61 Endif 

5 
6 

64 

65 : 

return 

re] end 


PROGRAM SECTIONS 


Total Space Allocated 


ENTRY POINTS 
Address Type Name 
0-00000000 SDI_STI_ERRORS 


VARIABLES 
Address Type Name 


Attributes 

PIC CON REL LCL SHR 

PIC CON REL LCL SHR 
CON REL LCL NOSHR 

PIC OVR REL GBL SHR 


Address Type 


oH | 
- I*2 


! STI drive error 


r error 


8)) then 


oh rns (Lun, (((packet_length = 42) +3)/4),emb(1)) 


EXE RD NOWRT LONG 
NOEXE RD NOWRT LONG 
NOEXE RD WRT LONG 
NOEXE RD WRT LONG 

Name 
EMBSB_LM_NAMLNG 
EMBSL-HD-S1D 
EMBSW~HD ENTRY 


Page 
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MS 


15 
sD1_ST1_ERRORS IgoSepr]9B4 00:26:12 WAKELY EORTRAN VB. tS 


Is ~HD_ERRSEG i MBSW_LM_MSGTYP 
» tA « 
1 


JMSCP.FOR;1 


UNIT 


Address Type 
f-Sannttee 
LABELS 


Address Label Address Label 
1-00000028 10° 1-0000002D 15° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
FORMATTER_ VERSIONS LINCHK 


RSLGSEB 
MSLG$$8_CNT_HVR 
MSLGS$$B8_F ORAAT MSLGS$$B_ 
MSLGSS$L_GAP_CNT 
MSLGS$$L_VOL"SER MSLG$$Q_CNT~ID 
MSLGSS$W_EVERT MSLGS$$W_MULT_UNT 
MSLGS$W_UNIT MSLG$$Z"SDI 


eesesssssS88888888383s38833Ss3s3ssssE 
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Subroutine MSLGSK_SML_DSK (Lun,packet_Length) 


include seregenagnee . ter /nolist* 
include ‘src$:emblmdef.for /nolist' 


byte lun 
7 nteger*4 racket_length 
140 eaebered nsigSl-cad-ret 
136 ees ms lg$w_unit 
re integer* ms \g$w_seq_num 
145 byte ms\g$b_ format 
1% byte msl g$b_fiags 
gies integer*2 mslg$w_event 
0150 integers4 mslg$l_cnt_id1 
Bia) integers4 mslg$l_cnt_id2 
6188 byte msl g$b_cnt_svr 
Bie byte mslg$b_cnt_hvr 
128 integer*2 mslg$w_mult_unt 
135 integer*4 mslg$l_unit_id1 
+4 integert4 mslg$l_unit_id2 
161 byte mslg$b_unit_svr 
aoe byte mslg$b_unit_hvr 
198 integer*2 msl g$w_sde_cyl 
Hy integer*4 mslg$l_vol_ser 
168 equivalence (emb(38) ,msig$l_cmd_ref) 
199 equivalence Cemb (42) ,mslg$w_unit) 
170 equivalence (emb (44) ,mslgSw_seq_num) 
171 equivalence pomp 28 omslg$b_ format) 
176 equivalence (emb (47) ,msig$b_ flags 
17 equivalence (emb (48) ,.msigSw_event) 
174 equivalence (emb(50) ,msig$l_cnt_id1) 
175 equivalence (emb(54) ,msig$l_cnt_id2) 
176 equivalence (emb(58) ,msig$b_cnt_svr) 
17 equivalence (emb(59) ,mslg$b_cnt_hvr) 
178 equivalence (emb(60) .msig yanul unt} 
17 equivalence (emb(62) ,msig$l_unit_idl) 
1 equivalence (emb(66) ,msig$l_unit_id2) 
181 equivalence (emb(70) .msig$b_unit_svr) 
1 $ equivalence pomp? ),mslg$b_unit_hvr) 
1 equivalence (emb(72) ,mslg$w_sde_cyl) 


MSLGSK_SML_DSK 1 Se 1984 00:24: VAX-11 FORTRAN V¥3.4-56 P 4 
¢-$ en-1984 9 67 48 DLSKSVMSMASTER: CER RF .SRCIMSCP.FOR;1 ns 
¢ equivalence (emb(74) ,msig$l_vol_ser) 
call Linchk (Llun,1) 
rite(lun,10) 
10 format(’ ',:) 


call mslg$$l_cmd_ref (Lun,msig$l_cmd_ref) 

call msig$$Sw_unit (lun,msig$w_unit,.true.) 

call mslg$$w_seq_num (Lun,msig$w_seq_num) 

call mslg$$b_format (lun,mslg$b_ format) 

call msig$$b_flags (lun,msig$b_ flags) 


FORISSELPSROS 


call mslg$$w_event (lun,msig$w_event) 

call mslg$$q_cnt_id (Lun,mslg$l_cnt_idl,mslg$l_cnt_id2) 

call mslg$$b_cnt_svr (lun,mslg$b_cnt_svr) 

call msig$$b_cnt_hvr (lun,msig$b_cnt_hvr) 

call mslg$$w_mult_unt (lun,msig$w_mult_unt) 

call mslg$$q_unit_id (lun,mslg$l_unit_id1,msig$l_unit_id2,.true.) 
call mslg$$b_unit_svr (lun,mslg$b_unit_svr) 

call mslg$$b_unit_hvr (lun,mslg$b_unit_hvr) 

call mslg$$w_sde_cyl (lun,mslg$w_sde_cyl) 

call msig$$l_vol_ser (lun,msig$l_vol_ser) 


Device dependent extensions... 
If (packet_length .GT. 40) then 
Call LIWCHK (Lun,3 
Write un. 13) "SEOUTROLLER OR DEVICE DEPENDENT INFORMATION’ 
15 Reena” cyt 
re emb$Sb_lm_type .£Q. 23 


1 emb$b_lm_type .£0. 24 
1) then ~ " 


Call MSLGSK_SML_DSK_AZTEC (Lun) 


tt od od ot I I IOOO 
Oona 


SOOSOOSOOOOSOSOOSOOOSOOSOSOSOOSOOOSOSOSOSSSOSOSOSOCSOCoCoCoooooooooOoOoOoOOoOoOoooOoo 
2 


: 
60 
: 
00 
00 
00 
: 
| 


= 
o 
an 


The IF-THEN-ELSE should be expanded at this point to 


15 


N 
pera ap or $Sep=1986 14:67:26 DISKSUNSMASTER:LERF.SACIMsce.For:1 "#8 29 


re f include additional ‘‘type’’ support. 

if Else 

2 pas) punraes (Lun, (((packet_length - 40) +3)/4),emb(78)) 
r Endif 

4 return 

50 end 


Name Bytes Attributes 
0 SCODE 376 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA g PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
§ SLOCAL g PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB 1 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 1206 
ENTRY POINTS 
Address Type Name 
0-00000000 MSLGSK_SML_DSK 
VARIABLES 
Address Type Name Address Type Name 


EMBSB_LM_CLASS 


EMBSB_LM_ TYPE EMBSL_HD_SID 
EMBST_LM_ EMBSW_HD_ENT 
EMBSW_HD_ERRSEQ EMBSW_LM_MSGTYP 
EMBSW-LM LUN 
MSLGSB_CRT_HVR MSLGSB_CNT_SVR 
MSLGSB_FLA MSLG$B_FORMAT 
MSLGSB_UNIT_HVR LGSB-UNIT_SVR 
MSLGSL_CMD_REF MSLGSL-CNT_YD1 
MSLGS$L_CNT-ID2 GSL-UNIT_1D1 
SLGSL_UNIT_1D2 MSLG$L_VOL_SER 
MSLGSW_EVEN MSLGSW-MULT_UNT 
MSLGSW_SDE_CYL MSLGSW-SEQ_RUM 
MSLGSW_UNIT PACKET_LENGTH 


—MTO™MOODZ BK KOCH LO MWMMOOWZ EF ACH ILO MMOOOZ ES KOCK TO MWMOOWZ SS ACH TO MMIC 


MSLGSK_SML_DSK 


ARRAYS 
Address Type Name 


L*1 ENB 
Le] EMBSB_LM_MSGTXT 
[4 EMBSO"HD-TIME 


LABELS 
Address Label Address Label 
1-00000036 10° 1-00000038 15° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type 
DUMPREG 
MSLGS$$8_CNT_SVR 
MSLG$$8_UNIT_HVR 


msi gst -voL 
MSLGS$$W_SEQ_NUM 


Bytes 


51 
a6 (as 


MSLGS$$W_UNIT™ 


soc198e $0:84:3 


Dimensions 


VAX=11_ FORTRAN 


Type Name 
mst Gsse- CNT_HVR 
MSLG$$B_FORMAT 
MSLG$ arta 
MSLG$$W_SDE_CYL 
MSLG$K_SML_BSK_AZTEC 


Web 26 
DISKSVMSMASTER:LERF .SRCIMSCP.FOR; 1 


Page 26 


se -1984 VAX=11 FORTRAN ¥3.4-56 Pa 27 
i ee 92: $7: 3 DISKSVMSMASTER: CERF .SRCIMSCP.FOR; 1 ot 


Subroutine MSCPS$K_OP_ABORT (Lun,expand) 


include ‘src$:msghdr.for /nolist' 


byte lun 
ety logical*1 expand 
bors integer*4 mscp$l_cmd_ref 
74 a mscp$w_unit 
Bere integer* reserved! 
0077 byte mscp$b_opcode 
ite byte rosoryeds 
sie integer*2 mscp$w_modi fier 
set] integer*4 mscp$l_out_ref 
equivalence sont 783 emscp$l_ cmd. ref) 
5 equivalence (emb(42) ,mscp$w_unift) 
equivalence (emb(44) ,reserved1) 
0087 equivalence (emb (46) .mscp$b_o code) 
0088 equivalence pomp Ls oreserved ) 
0089 equivalence Cemb (48) ,mscp$w_modi fier) 
sas equivalence (emb(50) .mscp$l— out_ref) 
ad) 
009 
ope Entry MSCPS$K_OP_GTCMD (lun,expand) 


Entry MSCPS$K_OP_GTUNT (Lun,expand) 


call Linchk (Lun,1) 


rite(lun,5) 
5 Toomett® *. 13 


call mscp_first_twelve_bytes! (lun,expand) 


Entry INVALID_MSCPS$$K_OP_ABORT (Llun,expand) 
Entry INVALID_MSCPS$K_OP_GTCMD (lun,expand) 
Entry INVALID_MSCPS$$K_OP_GTUNT (Lun,expand) 


Se. 2 BODO DOOOoOO 
— os st 3OOO ssss 


i 


if sep 1944 90:67:26 DESKSUMSMASTEN: FER Secamscp.ror;1 "2% 28 


MSCPSSK_OP_ABORT 


11 

1? if (mscp$b_opcode .eq. 3) goto 15 

3 call Linchk (lun,1) 

121 write(lun, 10) msc $l out 

} § 10 format(’ §,t8,'"MS PSC_ OUT. REF’ t26, 28.8) 
124 15 return 

125 

126 end 


Name Bytes Attributes 
177, PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 36 oie CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 24 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
512 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 749 
ENTRY POINTS 
Address Type Name Address Type Name 
smh s'os's $44 INVALID_MSCPS$K_OP_ABORT a 44 4 pin Fh ate OP_GTCMD 
D INVALID_MSCP$$K—OP_GTUNT -0000000 CP$$K_OP_ABORT 
0-00000008 MSCPSSK_OP_GTCMD 0-09000016 MSCPSSK7 ~OP- GTUNT 
VARIABLES 
Address Type Name Address Type Name 
EMBSL_HD_SID 5-500 se ie EMBSW_HD_ENTRY 
EMBSW_HD-ERRSEQ AP- 8a L*1 EXPAN 
LUN 5 L*1 MSCP$B_OPCODE 
MSCPSL_CMD_REF missle ty 33 mSCPSL _OUT_REF 
MSCPSW-MODTFIER is MSCPS$W-UNIT 
RESERVED1 -0000003F L*1 RESERVED2 
ARRAYS 
Address Type Name Bytes Dimensions 


$-00000008 


Le] —MB 51g (93511) 
1*4 EMBSQ_HD_TIME (2) 


RSCPS$K_OP_ABORT if-Fep-1944 9:69:36 


LABELS 
Address Label Address Label Address Label 
1-00000004 5° 1-00000009 10° 0-00000080 15 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 


LINCHK MSCP_FIRST_TWELVE_BYTES1 


Vv 
D 


A 
I 


Xe- 
SK 


1 F 
VMS. 


OR 


= 


Yes 


4 
F 


5 
SRCIMSCP.FOR: 1 


Page 


Subroutine MSCPSSK_OP_ACCES (lLun,expand) 


include ‘src$:msghdr.for /nolist’ 


byte 
Logical*1 
integer*4 


integer* 
lacegerss 


byte 
byte 


integer*2 


integere4 
integer*4 
integers4 
integers4 
integer*4 


equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 


equivalence 
equivalence 


equivalence 
equivalence 
equivalence 


integert4 


lun 
expand 
mscp$l_cmd_ref 


mscp$w_unit 
reserved! 


mscp$b sggcode 
reserved 


mscp$w_modifier 


mscp$l_byte_cnt 
mscp$l—r 

resorvid (3) 
mecost~tb pytterts) 
ascp$ 


(emb(38) ,mscp$l_cmd_ref) 
(emb(42) ,mscp$w_unift) 
(emb (44) ,reserved1) 
Cemb(4 ) amscpSb_ opcode) 
(emb(47) ,reservedd) 

(emb (48) -mscp$w_ modifier) 


Fomb (3) -mscp$t_by b te_cat) 
(emb(50) ,mscp$l— rb 


(emb (54) ,reserved3) 
(emb (54) smscp$z_ buffer) 
(emb (66) ,mscp$l—lbn) 


compress4 


Entry MSCPS$K_OP_CMPCD (lun,expand) 
Entry MSCPSSK_OP_COMP (Lun,expand) 
Entry MSCPSSK_OP_ERASE (lun,expand) 
Entry MSCPSSK_OP_FLUSH (Lun,expand) 
Entry MSCPSSK_OP_READ (lun,expand) 
Entry MSCPSSK_OP_REPLC (Lun,expand) 


—— — 7 
| 
| 
| 


16 -3e0-1984 90: 46 " 


-Sep-1 


RAN Y3.4=56 Page 30, 
TER: CERF -SRCIMSCP.FOR:1 9° | 


MSCPSSK_OP_ACCES gfe sen- 1984 90: 44: is VAX=-11 FORTRAN 


3.4-56 Pa 31 
DISKSVMSMASTER: CERF -SRCIMSCP.FOR;1 


-Sep-1 
if ene 
1 y MSCPSSK_OP_WRITE (Llun,expand) 
1 call Linchk (lun,1) 
, ee 
, ‘ call mscp_first_twelve_bytes! (lun,expand) 
; 
; Entry INVALID_MSCPSSK_OP_ACCES (lun,expand) 
; 1 Entry INVALID_MSCPSSK_OP_CMPCD (Lun,expand) 
H j Entry INVALID_MSCPSS$K_OP_COMP (Lun,expand) 
4 5 Entry INVALID_MSCPSS$K_OP_ERASE (lun,expand) 
; Entry INVALID_MSCPSS$K_OP_FLUSH (Lun,expand) 
139 Entry INVALID_MSCPSS$K_OP_READ (Lun,expand) 
\e) Entry INVALID_MSCPSS$K_OP_REPLC (Lun,expand) 
148 Entry INVALID_MSCPSSK_OP_WRITE (Lun,expand) 
145 
168 call Linchk (lun,1) 
168 if (mscp$b_opcode .eq. 20) then 
150 write(lun,7) msco$l rbn 
: 1 7 format(' 't8. MSCPSL. RBN' ,t24,28.8) 
i if (expand) then 
; 5 call Linchk (lun,1) 
139 write(lun,8) ascpsl : pam 
138 8 format(®! -t40, EPCACEMENT BLOCK #', i<compress4 (mscp$l_rbn)>,*.") 
190 else 
if 10 Yormant*"# em, "ASERSE BYTECCNT® , £26, 28.8) 
; 5 if (expand) then 
189 call Linchk (lun,1) 
183 1 Vorsstt* vitor SPTE-COUNT<”!, i<compressé (nscpSl_byte_cnt)> 
10 he oe t40, .e p psi _byte_ . 
172 


aS 


wr 


et a wt as a a ts 4 2 a as ss 2 2 tt a 
uw 


BSSSLERFANLSSSLESLAVLESE 


MSCPSSK_OP_ACCES 


= 
AY 


™ 
o 


~ 
—~ 


H 16 

16-Sep- 
g- =hen- 
endif 


if ¢ 

; = nscos opcode .eq. 32 
he asco opcode .eq. 33 
: mscpsb_ opcode .eq. 34 


call mscp$$z_buffer (lun,mscp$z_buffer) 
else 


call mscp_reservedq (lun,reserved3) 
call Linchk (lun,4) 

write(lun,15) ,fe erved3(3) 

format(’ ,¢2 28-8) ) 

endif 

call Linchk (lun,1) 


write(lun 320) pacest Lon 
format(’ ',t8, MSCPSC _LBN',t24,28.8) 


if (expand) then 
If (LIBSEXTZV(6,2,mscp$b_opcode) .E£Q. 0) then 
call Linchk (lun,1) 


write(lun 22) mecpst lbn 
fernett® 1 t40,'L 
endif 


Endif 
return 
end 


1986 96:67:26 


GICAL BLOCK #',i<compress4 (mscp$l_‘bon)>,'.") 


CIMSCP.FOR;1 


Page 


32. 


16 
MSCPBSC_OP_ACCES ig-Fep-1984 0:26:12 VANTY FORTRAN YS.U-56 Page 35 


PROGRAM SECTIONS 


Name Bytes Attributes 

SCODE 72 BIC CON REL LCL SHR EXE RD _NOWRT LONG | 

SPDATA PIC CON REL LCL SHR NOEXE RD NOWRT LONG | 

SLOCAL PIC CON REL LCL NOSHR NOEXE RD WRT LONG | 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 


Total Space Allocated 1491 


ENTRY POINTS 


| 
| 
Address Type Name Name | 
INVALID_MSCPSSK_OP_ACCES INVALID_MSCPS$S$K_OP_CMPCD 
INVALID _MSCPSS$K_OP_COMP INVALID_MSCPSS$K_OP_ERASE 
INVALID _MSCPSS$K_OP_FLUSH INVALID_MSCPS$K_OP_READ 
yl Te ao OP_REPLC yA ea OP_WRITE 
MSC ~OP_ACCES scp K_OP_CMPCD 
MSCPSSK_OP_COMP MSCPSS$K_OP_ERASE 
MSCPS$K—OP~FLUSH MSCPS$$K—OP~READ 
MSCPS$K~OP~REPLC MSCPS$K~OP "WRITE | 
VARIABLES 
Address Type Name Address Type Name | 
EMBSL_HD_SID 3-00000004 I+? ERBSY_HD_ENTRY | 
EMBSW_HD-ERRSEQ AP-00000008@ L*1 EXPAND | 
L - L*1 MSCP$B_OPC 
MSCPSL_BYTE_CNT 000000 6 I*4 MSCPSL-CMD_REF | 
MSCPSL_L -000000 I*4 MSCPSL_ 
MSCPSW_ MODIFIER -0000002A is MSCPSW_UNIT 
RESERVED! -0000002F L*1 RESERVED2 
ARRAYS | 
Address Type Name Bytes Dimensions 
Le] EMB $12 (0:511) | 
1*4 EMBSQ_HD TIME (2) 
1*4 MSCP$7_BOFFER 1 (3) 
1*4 RESERVED 1 (3) | 
LABELS | 
Address Label Address Label Address’ Label Address Label Address Label Address Label 
1 10 5° 1 Ss 2 1-0000002C 8’ 1-00000050 10° 1-0000006C 11° 1-00000091 15° 
1=0000009A 20° 100000087 52" 


16 
nSCPSSK_OP ACCES TEReenH9Rs 00:86:13 YMNCHLAEORTIIN YEESE snscesrons1 "28" 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name Type Name 
1*4 COMPRESS4 I1*4 LIBSEXTZV LINCHK 
MSCPS$? BUFF ER MSCP_F LAS TWELVE _BYTE $1 MSCP_RESERVEDQ 


ifrBeor}9Bs 90:24:12 YAEL EORTRAN VBLE-S6 ong og. Page 35 


Subroutine MSCPSSK_OP_AVAIL (Lun,expand) 


include ‘src$:msghdr.for /nolist' 


byte iun 

Logical*1 expand 
integers4 mscp$l_cmd_ref 
integer* mscp$w_unit 
are not reservedl 

byte mscp$b_opcode 
byte reserveds 
integert2 mscp$w_modifier 


equivalence Cemb(42) ,mscp$w_ 
equivalence (emb(44) ,reserved!) 
equivalence (emb (46) ,mscp$b_opcode) 
equivalence (emb(47) ,reserved2) 
equivalence (emb(48) ,mscp$w_modi fier) 


Entry MSCPS$K_OP_DTACP (Lun,expand) 
Entry MSCPSSK_OP_SEREX (Lun,expand) 


call Linchk (lun,1) 


write(Lun,5) 
5 format(' °,:) 


equivalence (emb(38) ,mscp$l_cmd_ref) 
unif) 
call mscp_first_twelve_bytes! (lun,expand) 


Entry INVALID_MSCP$SK_OP_AVAIL (Lun,expand) | 
Entry INVALID_MSCPS$SK_OP_DTACP (Lun,expand) | 


return 
en 


MSCPSSK_OP_AVAIL 


PROGRAM SECTIONS 


1-00000004 5° 


Type Name 
L INCHK 


Address Label 


FUNCTIONS AND SUBROUTINES REFERENCED 


ifoden-19Re 00:24:12 vane 


D1 SKSVMSMASTER: 


Name Bytes Attributes 
SCODE 10 PIC CON REL LCL 
SPDATA § PIC CON REL LCL 
SLOCAL $3 345 CON REL LCL NOSH 
EMB 512 PIC OVR REL GBL 
Total Space Allocated 653 
ENTRY POINTS 
Address Type Name Address Type 
57 joys D_MSCPS$K_OP_AVAIL -00000062 
CPSSK-OP AVAIL 00000008 
16 mS CPSSh -Op- SEREX 
VARIABLES 
Address Type Name Address Type 
; 1*4 EMBSL_HD_SID 3-00000004 I*2 
sf EMBSW_HD_ERRSEQ AP- 464 8a L*1 
AP @t*ti tb -00000 F L*1 
6 I*4 MSCPSL_CMD_REF -000000 is 
~onRe A is¢ MSCPSW-UNIT -0000002C I* 
F Le RESERVED? 
ARRAYS 
Address Type Name Bytes Dimensions 
Haws 'a'e L*1 €EMB 512 allel 
-00000006 I*4 EMBSQ_HD_TIME 8 (2) 
LABELS 


Type Name 


MSCP_FIRST_TWELVE_BYTES1 


RD NOWRT LONG 


SHR worse 
— Not KE RD NOWRT LON 


G 
RD WRT toed 


NOE X 
SHR NOEXE RD WRT LON 


INVALID _MSCPS$K_OP_DTACP 
MSCPS$$K_ OP _DTACP 


Name 
ih ela ENTRY 
MSCP$B_OPCO 


DE 
MSCPSW MODIFIER 
RESERVED1 


RiP ae 
ERF .SRCIMSCP.FOR;1 


if Seo-19Be 90:34:12 


Subroutine MSCPSSK_OP_ONLIN (lLun,expand) 


include ‘src$:msghdr.for /nolist' 


byte lun 

Logical*1 expand 

integers4 mscp$l_cmd_ref 

posers mscp$w_unit 

integer* reserved! 

byte mscp$b_opcode 

byte reserveds 

integer* peceee Ayer reer 

integer* reserved 

integer* mscp$w_unt_ figs 
integers4 reserved4 (3) 

integer*4 mscp$l_dev_parm 

eet oe mscp$w_shdw_unt 

integer* mscp$w_copy_spd 
equivalence (emb(38) ,mscp$l_cmd_ref) 
equivalence C(emb (42) ,mscp$w_unit) 
equivalence (emb (44) ,reserved1) 
equivalence Cemb(4 emacs opcode) 
equivalence (emb(47) ,reservedd) 
equivalence Cemb(4 p maceeu neg tter? 
equivalence (emb(50) ,reserveds) 
equivalence Cemb(52) ,mscp$w_unt_ figs) 
equivalence Cemb ( poreseryeas 
equivalence (emb (66) ,mscp$l_dev_parm) 
equivalence (emb(70) ,mscp$w_shdw_unt) 
equivalence (emb(72) ,mscp$w_copy_spd) 


Entry MSCPS$K_OP_STUNT (Lun,expand) 


call Linchk (lun,1) 


write(lun,5) 
format(’ *,:) 


call mscp_first_twelve_bytes! (lun,expand) 


Entry INVALID_MSCPS$K_OP_ONLIN (Llun,expand) 


VAX=11 FORTRAN 
DISKSVMSMASTER 


Ya.8"26 
: CERF .SRCIMSCP.FOR; 1 


Page 37 
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8 1 
_MSCPS$$K_OP_ONLIN 19-Sep-1984 00: VAX=11 FORTRAN 


Sep-1984 


} 

an Entry INVALID _MSCPS$K_OP_STUNT (Lun,expand) 

0120 call mscp$$w_unt_flgs (Lun,mscp$w_unt_flgs,expand) 
St ¢ call mscp_reservedq (lun,reserved4) 

4 ¢ call Linchk (lun,1) 

0126 write(lun,10) reserved4(3) 

10 format(' *,t24,28.8) 

Hy , call mscp$$l_dev_parm (lLun,mscp$l_dev_parm) 

Bia) call mscp$$w_shdw_unt (Lun,mscp$w_shdw_unt,expand) 
0138 call mscp$$w_copy_spd (lun,mscp$w_copy_spd) 

a = 


PROGRAM SECTIONS 


0 SCODE 221 PIC CON REL LCL SHR EXE RD NOWRT LONG 

1 SPDATA 18 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 

2 $LOCAL 92 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 

3 EMB 512 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 843 


ENTRY POINTS 


Address Type Name Address Type Name 


4:1 
4:07:2 DISKSVMSMASTER: 


0-0000004(C INVALID_MSCP$$K_OP_ONLIN 0-00000057 INVALID_MSCP$$K_OP_STUNT 
0-00000000 MSCP$$K_OP_ONLIN 0-00000008 MSCP$$K_OP_STUNT 
VARIABLES 
Address Type Name Address Type Name 
-00000000 I*4 EMBSL_HD_SID 3-00000004 I*2 EMBSW_HD_ENTRY 
Hib sddit I*2 EMBSW_HD-ERRSEQ a e444 tf EXPAND 
ae ooooooeee L*1 LUN =290000¢5 MSCP$B_OPCODE 
3-000000 $ I*4 MSCPSL_CMD_REF -000 0065 ey MSCPSL_DEV_PARM 
. I*2 MSCP$W_COPY_ or - its - MSCPSW =RODTFIER 
2046 I*2 MSCPS$W~SHDW"UN - I*2 MSCPSW"UNIT 
34 J[*2 MSCPSW-UNT “PLts -0000 I*2 RESERVED! 
-0000002F L*l RESERVED2 - $000085 I*2 RESERVEDS 


| 
| 
| 
| 


¥3 4-36 
ERF .SRCIMSCP.FOR; 1 


001 
001 


0Ci 
001 
001 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
003 


pers — eo ee | ” 
scr oF om NRSEHOEE USBHDR  MECLLGRRU Yd me | 


-Sep-1 « SRCIMSCP.FOR; 1 
ARRAYS | 
| Address Type Name Bytes Dimensions | 
~0000006 Ts4 EMBSO_HD_TIME eB «bebe 
-00000036 I*4 RESERVEDS 1 (33 
LABELS 


1-00000004 5° 1-00000009 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 


LINCHK MSCPS$$L_DEV_PARM MSCP$$W_COPY_S 
RSCPS$u SHDW_UNT MSCP$$W_UNT_FLGS MSCP_FIRST PTOELVE _BYTES1 
MSCP_RESERVEDO 


Address Label Address Label 


EOS ES BS 


-——-___ 


g 


oo 
sss 
aN 
Vlwr 


sesseees 


sean segeeasranceesessEsesseseEerEes 


— > + oe — 
WPwn-oO 


——————————— 


Subroutine MSCPS$K_OP_STCON (Lun,expand) 


include ‘src$:msghdr.for /nolist' 


byte 
logical*1 
integert4 


integer*2 
integer*2 


byte 
byte 


integer* 
integer* 
integer* 
integer* 
integer* 


integer*4 
integer*4 


equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivelence 


Lun 
expand 
mscp$l_cmd_ref 


mscp$w_unit 
reserved! 


pecees anreee 
reserved 


mscp$w_modifier 
mscp$w_version 
mscp$w_cnt_figs 
porn aly 
reserved 


mscp$l_timel 
mscp$l_time2 


call Linchk (lun,1) 


write(lun,5) 
format(' *,:) 


call mscp_first_twelve_bytes! (lun,expand) 


Entry INVALID_MSCP$S$K_OP_STCON (Lun,expand) 


call mscp$$w_version (lun,mscp$w_version) 


1 FORTRAN V3.4-56 
:CERF.SR 


R CIMSCP.FOR;1 


Page 40. 


—— 


1 
_MSCPS$SK_OP_STCON ig- Sep- 1984 00: £24213 VAX-11 FORTRAN V3 -4-56 Page 41) 
-Sep-1984 14:07:2 DISKSVMSMASTER: CERF ..SRCIMSCP.FOR;1 
ous call mscp$$w_cnt_flgs (lLun,mscp$w_cnt_flgs,expand) | 
‘88 call mscp$$w_hst_tmo (Lun,mscp$w_hst_tmo,expand) | 
3 call mscp_reservedw (lun,reserved3) | 
BI § call mscp$$q_time (lun,mscp$l_timel,expand) 
0124 return 
0125 end 
| 
| 
PROGRAM SECTIONS | 
Name Bytes Attributes 
0 SCODE 155 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 9 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
§ SLOCAL 96 PIC CON REL LCL NOSHR NOEXE D WRT LONG 
EMB 512 PIC OVR REL GBL SHR NOEXE RD WRT LONG | 
Total Space Allocated 772 | 
ENTRY POINTS | 
Address Type Name Address Type Name 
0-00000041 INVALID_MSCP$$K_OP_STCON 0-00000000 MSCP$$K_OP_STCON | 
VARIABLES | 
Address Type Name Address Type Name 
3-00000000 I1*4 EMBS$L_HD_SID 3-00000004 I*2 EMB$W_HD_ENTRY 
3-O000000E I*2 EMBSW_HD_ERRSEQ AP-00000008@ L*1 EXPAND 
AP-00000004@ L*1 LUN 3- sie et L*1 MSCP$B_OPCODE 
-00000026 I*4 MSCPSL_CMD_REF 3-0000003A I*4 MSCPSL_TIME1 
-0000003C I*4 MSCPSL_TIME2 3-00000034 <5 CP$W_CNT_FLGS 
-00000036 I*2 MSCP$W_HST_TMO 3-00000030 I*2 MSCPSWMODIFIER | 
-0000002A 135 MSCP$W"UNIT $~Bn008 2 I*2 MSCPSW- VERSION 
-0000002C I* RVED1 -0000002F L*i RESERVED 
-000000358 I*2 RESERVED3 
ARRAYS | 
Address Type Name Bytes Dimensions 
-00000000 L*1 EMB $12 (0:511) | 
-00000006 I*4 EMB$Q_HD_TIME 8 (2) 


coe 


——— 
_ MSCPS$K_OP_STCON 
| LABELS 


Address Label 
1-00000004 5° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 


LINC 
RSCPS$w HST_TMO 
MSCP_RESERVEDW 


we 
16-Sep-1984 
55-Sep-1984 


00:24:12 
14:07:20 


Type 


VAX-11 FORTRAN V3.4-56 Page 
DISKSVMSMASTER: CERF .SRCJMSCP.FOR;1 


MSCPS$$W_CNT_FLGS 
MSCP_FIRST_TWELVE_BYTES1 


eesserses 


S$8883s8 
COOOWNAVUVEWN “OVO ONOUSWN OO 


Besssececsccocessoces 


1 | 
i6- Sep-1984 00: ++} 3 VAX=-11 FORTRAN V3.4-56 Page 43) 
-Sep-1984 14:07 DISKSVMSMASTER: CERF .SRCIMSCP.FOR;1 


Subroutine MSLGS$L_CMD_REF (Llun,command_reference_number) 


byte lun 
integers4 command_reference_number 


call Linchk (lun,1) 


write(lun,10) command_reference_number 
format(’ ',t8,"MSLGSL_CMD_REF',€24,28.8) 


return 


Entry MSCPSSL_CMD_REF (Llun,command_reference_number ) 


call Linchk (lun,1) 


write(lun,15) command_reference_number 
format(' *,t8,"MSCP$L_CMD_REF',€24,28.8) 


return 


Beare 
“MSLGSSL CMD _REF 


PROGRAM SECTIONS 
Name Bytes 
0 SCODE 11 


2 SLOCAL 3 
Total Space Allocated 182 


ENTRY POINTS 
Address Type Name 
0-00000038 MSCPSSL_CMD_REF 


VARIABLES 
Address Type Name 
AP-00000008@ 1*4 COMMAND_REFERENCE_NUMBER 


LABELS 
Address Label Address’ Label 
1-00000004 10° 1-0000001F 15° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
LINCHK 


16 ~5e0-1984 00:66 VAX-11 FORTRAN 
-Sep-1984 DISKSVMSMASTER: 
Attributes 
PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 


Address Type 
0-00000000 


Address Type 
AP-000000048 L*1 


Name 
MSLGS$L_CMD_REF 


Name 
LUN 


3.4-56 
ERF .SRCIMSCP.FOR; 1 
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00 
1 
002 
002 
002 
002 
002 
00¢ 
002 
002 
002 
002 
003 
003 
003 
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003 
003 
003 
003 
003 
003 
004 
004 
004 
004 
a0 
004 
004 
p| 
5 
‘ 
> 
§ 
€ 
‘ 
§ 


eee 


~ 
| 


: 
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Ibese 1984 00:24:1 VAX-11 FORTRAN V3.4-56 P 45 
Sep-1984 ° :07:2 DISKSVMSMASTER: CERF .SRCIMSCP.FOR;1 ~ 


3 


Wr 


Subroutine MSLGS$W_UNIT (Lun,unit_number,expand) 


byte lun 
integer*2 unit_number 


ogsescess 


Logical*1 expand 
integers4 unit 
integer*4 compress4 
call Linchk (Llun,2) 


write(lun,10) *MSLG$W_UNIT* ,unit_number 
10 format(* ',t8,a,t28,2%.4) 


15 if (expand) then 
unit = LibSextzv(0,16,unit_number) 
write(lun,20) unit 


20 format(’ ',t40, "UNIT #',i<compress4 (unit)>,'.') 
endif 


MINIPORY 3 2 ee 
WN —OODONOU fw 


return 


Entry MSCP$$W_UNIT (Lun,unit_number,expand) 


call Linchk (Llun,2) 
write(lun,10) "MSCP$W_UNIT' ,unit_number 
goto 15 


S8SSS8SS8SS88S8SS8S3ssssssssss 


SSIEALFUNISSSSVEKR 
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Wwn—-o 


end 


sheen tt 


qi 


SE i cio =k aC N eee 
resect 0: 


| MSLGS$W_UNIT 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 20 PIC CON REL LCL SHR EXE 
2 Stocat 86 PIC CON REL LCL NOSHR NOEXE 
Total Space Allocated 328 
ENTRY POINTS 
Address Type Name Address Type Name 
0-00000079 MSCPS$$W_UNIT 0-00000000 MSLGS$$W_UNIT 
VARIABLES 
Address Type Name Address Type Name Address 
AP-0000000C@ L*1 EXPAND AP-000000048 L*1 LUN 2-00000000 
LABELS 
Address Label Address’ Label Address’ Label 
1-00000022 10° 0-00000042 15 1-0000002E 20° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
I*4 COMPRESS4 


Type Name 
I*4 LIBSEXTZV 


Type Name 
LINCHK 


Sa a eR Rt OM 
VAX-11 FORTRAN V3.4-56 


Page 46 
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67:26 


RD NOWRT LONG 
RD NOWRT LONG 


RD WRT LONG 
Type Name Address Type Name 
I*4 UNIT AP-00000008@ I*2 UNIT_NUMBER 


EROS (OHNE WMEHAGBRIEL A Beamc.ronss 8" *? 


Wr 


Subroutine MSLG$$W_SEQ_NUM (Lun,sequence_number) 


| 
i byte Lun 
"4 integer*2 sequence_number 
11 integer*4 sequence 
1g integer*4 compress4 
14 
0013 call Linchk (lun,2) 
0017 write(lun,10) tegvence number 
Bie 10 format(' *,t8,'MSLG$W_SEQ_NUM',t28,24.4) 
a8 : sequence = LibSextzv(0,16,sequence_number) 
00 ¢ write(lun,20) sequence 
534 20 format(’ *,t40,"SEQUENCE #',i<compress4 (sequence)>,'.') 
bose return 
0026 end 


PROGRAM SECTIONS 
Name Bytes Attributes 
CODE 120 PIC CON REL LCL SHR EXE RD NOWRT LONG 
2 SLOCAL 2O PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 226 
ENTRY POINTS 
Address Type Name 
0-00000000 MSLG$$W_SEQ_NUM | 
VARIABLES | 
Address Type Name Address Type Name | 
AP-00000004@ L*1 LUN 2-00000000 1*4 SEQUENCE | 
AP=00000008@ I*2 SEQUENCE_NUMBER 
| 


fede 


: 
1 
1 
1 
1 
001 
001 
001 
001 
001 
001 
002 
002 
002 
002 


1 
orate ae if: £p-1382 92:65:36 btRcdumshasten:fearssecamscp.ror:1 Pee 48 
LABELS 
Address Label Address Label 


1-0000000C 10° 1-00000027 20° 


, 


MSL 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESS I*4 LIBSEXTZV LINCHK 


16- stp-19 4 # 90:46 VAX-11 FORTRAN V3.4-56 Page 49 
-Sep-1984 DISKSVMSMASTER: CERF .SRCIJMSCP.FOR;1 


wn 


Subroutine MSLGSS$B_FORMAT (Lun, format) 


83333 | 


“ 


byte Lun 

byte format 
integer*4 message_ format 
integer*4 compress4 


cat’ Linchk (lun, a. 
wr ite(lun, 10) forma 
10 format ( 8, MSLGSB_ FORMAT’ ,t30,22.2) 


message_format = LibSextzv(0,8, format) 


i a a nn on 


if tnopoegs format .eq. 0) 
write(lun, 0) ‘CONTROLLER ERROR’ 
20 format(' *,t40,a) 


| 

| 

else if (message format .eq. 1) 
write(lun,20) "HOST MEMORY Access MERROR' | 
| 

| 

| 


gessassagssaesaesse 


else if (ngese e format .eq. 2) 
write(lun,20) ‘DISK TRANSF R ERRORS 
else if (message format .eq. 3) then 
write (l un 30) Wen ih ERROR Re 

else if (mes S5e9e. format .eq. then 
write(lun,20) "SMALL DISK’ ERROR 


Pere epee ee yeh Nab es 


MEUM §O OBNO UE WN O OONOUFS WN —0O0O@ 


Else if (message format .£Q. 5) t 
Write (lun,20) ‘TAPE TRANSFER ERROR® 


Else if (message format gfe 6) then 
write (luns20) 9 *™STI'’ ERR 


Else if (message format .EQ. a a 
Write (lun,20) Sasty" DRIVE ERR 


Else if (me format .£Q. 8) the 
Write (Luns20) att ah FORMATTER ERROR' 


SBLEA 


, else 
: Unknown message format, output it decimal. 


Sssssssssesssssasassesessesesses 


write(lun 25) Lome saaty ormat 


An Fwnr 0 CON ufwno 


5 
5 
005 25 format(' *,t40,'FOR #',i<compress4 (message_format)>,'.') 
2 endif 
5 return | 
5 en | 


r sc SS SS Ss SSS SSS sss sss sss sn 


MSLGSS$B_FORMAT Sep-1984 00:24: VAX=11 FORTRAN Y3.4-56 Page 50, 
1B-Sep-1944 90:85:56 DISKSVMSMASTER: CERF .SRCIMSCP.FOR; 1 . | 
PROGRAM SECTIONS 
Name Bytes Attributes 
$CODE 492 PIC CON REL LCL EXE RD NOWRT LONG 
SPDATA 2 PIC CON REL LCL SHR NOEXE RD NOWRT LONG | 
2 SLOCAL PIC CON REL LCL NOSHR NCEXE RD WRT LONG 
Total Space Allocated 830 
ENTRY POINTS 


Address Type Name 


0-00000000 MSLG$$B_FORMAT | 
VARIABLES | 
Address Type Name Address Type Name 
AP-00000008@ L*1 FORMAT AP-000000048 L*1 LUN 
2-00000000 I*4 MESSAGE_FORMAT 
LABELS | 
Address Label Address Label Address Label 
1-000000A8 10° 1-000000C2 20° 1-000000C9 25° | 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESS4G I*4 LIBSEXTZV LINCHK 


——— —— - 4 


2 
16-Sep-1984 00:24: VAX-11 FORTRAN V3.4-56 Page 51. 
b-sen-1984 90:65 ss  EekUMGRASTER PERE ctcamscp.ror:1 2% 5" 


000 

Bone Subroutine MSLGS$B_FLAGS (Llun,error_log_message_flags) 

0007 byte lun 
sia byte error_log_message_ flags 
0010 character*22 vierror_log_message_flags(0:0) | 
dB vierror_log_message_flags(0) /"SEQUENCE NUMBER RESET*'/ 
$018 character*21 v2error_log_message_flags(6:7) 

0014 data veerror_log_message_flags(6) /"OPERATION CONTINUING*'/ 

Bele data veerror_log_message_flags(7) /"OPERATION SUCCESSFUL*'/ 

0017 | 
0018 call Linchk (Llun,1) 
0019 
0020 write(lun,10) error Log message flags 

post 10 format(' ',t8,"MSLG$B_FCAGS',t30,z2.2) 

0023 call output (lun, libSextzv(0,8,error_log_message_flags), 
bose 1 vierror_log_message_flags.0,0,0,'0") | 
0026 call output (lun, libSextzv(0,8,error_log_message_flags), 

ot 1 v2error_log_message_flags,6,6,7,'0") 
0029 return 

0030 en 


sauna poe: bese sep- 130% 90:46 VAX-11 FORTRAN Paes Page 52 


“Sep-19 DISKSVMSMASTE?: CERF .SRCIMSCP.FOR; 1 | 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 127. =PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 47 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 228 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 402 
ENTRY POINTS | 
Address Type Name 
0-00000000 MSLG$$B_FLAGS | 
VARIABLES | 
Address Type Name Address Type Name | 
AP-00000008@ L*1 ERROR_LOG_MESSAGE_FLAGS AP=00000004@ L*1_ LUN 
ARRAYS 
Address Type Name Bytes Dimensions 
500000018 CHAR VZERROR-LOGCAESSAGE=FLAGS a3 (8:7) 


LABELS 
Address Label 
1-00000016 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
I*4 LIBSEXTZV LINCHK OUTPUT 


Page 53. 


dD 2 
16-Sep-1984 00:24:1 VAX=-11 FORTRAN V3.4-56 
g- 9007 138% 90: 7:2 DI SKSVMSMASTER: CERF SRCIMSCP.FOR: 1 


0001 
ai4 
000 i 
Bone Subroutine MSCPS$B_FLAGS (lun,end_message_flags,expand) 
$008 byte nd ft 
Ss 
Boos y end_message_flags 
Bare Logical*1 expand 
| 

ar character*21 viend_message_flags(4:7) 

1 a viend_message_flags(4) /'SERIOUS EXCEPTION®'/ 
0014 data viend_message_flags(5) /‘ERROR LOG GENERATED*'/ 
0015 data ¥jond message, 11098 '9) /"BAO BLOCK UNREPORTED*'/ 
B08 data viend_message_flags(7) /'BAD BLO‘K REPORTED*'/ | 
0018 
0019 call Linchk (iun,1) 
0031 ite(Lun,10) end fl 

write(Lun end_message_flaas 

0038 10 format (' 't8, MSCPSB FLAGS’. £80,22.2) 
002% if (expand) then | 
0026 call output (lun,end_message_flags,vlend_message_flags,4,4,7,'0") | 
0027 endif 
0028 | 
94 return 
0030 en | 


002 
002 
002: 
002 
002: 
002 
002 
003 
00 

003 
003, 
003. 
003 
003 
003; 
003 
003: 
003 
004 
004 
004, 
004 
004 
004 
004 
004 
004 
004 


S388ssss 


MSCPS$$B_FLAGS ig-se gen- 138% 90:46 VAX=11 FORTRAN V3.4-56 Page 54 
-Sep-1984 DISKSVMSMASTER: CERF .SRCIMSCP.FOR;1 


PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE PIC CON REL LCL EXE RD NOWRT LONG 
1 SPDATA 9 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 $SLOCAL 168 PIC CON REL LCL OEXE RD WRT LONG 
Total Space Allocated 287 


ENTRY POINTS 
Address Type Name 
0-00000000 MSCP$$B_FLAGS 


VARIABLES 
Address Type Name Address Type Name 


AP-00000008@ L*1 END_MESSAGE_FLAGS AP-0000000C@ L*1 EXPAND 
AP-00000004@ L*1 LUN 


ARRAYS 
Address Type Name Bytes Dimensions 
2-00000000 CHAR VIEND_MESSAGE_FLAGS 84 (4:7) 


LABELS 
Address Label 
1-0000000E 10° 


83338333 


bP a a 2 4 ss 4 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
LINCHK OUTPUT 


folelelelelelelelelolelololejl =) 
“3 St BOOOOOCOCOCOCOO 


2 
Br ep=198e 92:67:36 DTSKSVMSMASTER:LERFseRcaMscp.ror:1 "2% = 


wr 


Subroutine MSLGS$$W_EVENT (Lun,event_code) 


5 

000 byte Lun 

0008 

0009 integer*2 event_code 
integer*4 code | 
integers4 sub_code 
integer*4 compress4 
logical*1 valid_subcode | 


call Linchk (lun,1) 


write(lun,10) event_code 
format(' ',t8,"MSLGSW_EVENT',t28,24.4) 


a" 
oO 
WWINAN NA NWIAIRIPIPINPINIPINI NINN 2 PS 


Entry AZTEC_FULL_ERROR_CODE1 (Lun,event_code) 
Call STATUS_AND_EVENT_CODES (Lun) 


Return 
End 


ssgasessssesesseses 


DONAOULS WN —“OOONOUESWN—O 


S 


2 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
0 


mt an nh at mt a ts ts ss a Ss a a ss as ss a ss ss Ls ss a Ls 9 ts ee 


OUI SHELL LLL LE 


MSLGSSW_EVENT ibese se0- 138% 90: +¥ \é VAX=11 FORTRAN He a Page 56 * 


-Sep-1 DISKSVMSMASTER: CERF .SRCIMSCP.FOR;1 | 
PROGRAM SECTIONS | PRO 
Name Bytes Attributes 
Q SCODE 1 PIC CON REL LCL te EXE RD NOWRT LONG 
1 SPDATA 9 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 6 PIC CON REL LCL NOSHR N OEXE RD WRT LONG 
Total Space Allocated 146 


ENTRY POINTS 


Address Type Name Address Type Name 
0-0000003A AZTEC_FULL_ERROR_CODE1 0-00000000 MSLGS$W_EVENT 
VARIABLES | 
Address Type Name Address Type Name Address Type Name Address Type Name 
-00000004 I*4 CODE 2-0000000C I*4 COMPRESS4 AP-000000088 I*2 EVENT_CODE AP-00000004@ L*1 LUN | 
-00000008 I*4 SuUB_CODE 2-00000000 L*1 VALID_SUBCODE 
LABELS 


Address Label 
1-00000004 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
| 
LINCHK STATUS_AND_EVENT_CODES 
| 


2 
16-Sep-1984 00:24:1 VAX-11 FORTRAN V3.4-56 Page 57. 
87360718 4 14:07:2 DISKSVMSMASTER: CERF ..SRCIMSCP.FOR;1 . 

| 

0001 

BONe 

0004 Subroutine MSLGS$Q_CNT_ID (Lun,controller_idl,controller_id2) | 

S008 byte lun 

0008 

integer*4 controller_id1 
10 integers4 controller_id2 | 
11 integers4 unique_identifier_high 

porg integer*4 class 

SF integere4 model 

0015 character*24 subsystem_class(3) 

B08 ata subsystem_class(1) /*MASS STORAGE CONTROLLER®*'/ 

001 data subsystem class (¢) /*DISK CLASS DEVICE®'/ 001 

9018 data subsystem_class(3) /"TAPE CLASS DEVICE®'/ paid 

0020 character*27  class_model(11) | 002 

0021 data class_model (1) /*HSC5O8'/ | 002 

00e¢ data class_nodel (¢) /*UDASO#'/ 002 

Oe data class_model (3) /*RC25*'/ 002 

0024 data class~model (4) {VMS (SOFTWARE MSCP SERVER®*/ | 002 

0025 data class_model (5) /*TUBIPS'/ 

0026 data chess nodes (6) /*UDASOAt'/ 

0027 data class_model (7) /*ROSI#'/ 

0028 data class_model (8) /*TOPS 10/20 MSCP SERVER*'/ 

it data class_model (9) /*TK508'/ PRO! 

0030 data class_model (10) /*RUX5O0#'/ 

itd data class_model (11) /*RC26*'/ 

| 

$038 integer*4 compressc 0 

0034 1 

0035 2 

0036 | 

itd call Linchk (lun,2) | 

0039 write(Lun,10) controller idl controller 1g 

0040 10 format(* *,t8,"MSLGSOQ_CNT_ID',t24,28.8,7,t24,28.8) ENT 

se 

6048 | 

O93 Entry CDDB$Q_CNTRLID (Lun,controller_id1,controller_id2) | 0 

6 

ot 4 unique_identifier_high = Lib$Sextzv (0,16,controller_id2) VAR 

0949 call Linchk (Lun,1) 

0051 write(lun,15) unique identifier _high,controller_id! AP 
3g 15 format(’ ',t40,"UNIQDE IDENTIFIER, ',24.4,28.8) AP 
54 class = LibSextzv(24, econtrot ter. idg} 

2 model = Lib$Sextzv(16,8,controller_id2) 

0057 if ¢ 


2 
16-Sep-1984 00:24:12  VAX=11_ SORTRAN 3.456 Page 58 
f- pn 198 14:07:26 DISKSUMSMASTER:LERFssacamsce.ror:1 “2ee 8 


1 class .gt. 0 

1 .and. 

1 class .le. 3 

1) then 

call Linchk (lun,1) 

write(lun 20) subsystem_class(class) 


20 oy ial ,t40,a<compressc (subsystem_class(class))>) 
en 


0075 call Linchk (lun,1) 

0077 write(lun.25) class_model (model) 

0078 25 format(' *,t40,a<compressc (class_model (model) )>) 
0079 endif 


0081 return 
0082 end 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 S$CODE 400 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 113 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 496 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 1009 


ENTRY POINTS 


Address Type Name Address Type Name 
0-00000044 CDDB$Q_CNTRLID 0-00000000 MSLG$$Q_CNT_ID 
VARIABLES | 
Address Type Name Address Type Name 
2-00000178 I*4 CLASS AP-00000008@8 I1*4 CONTROLLER_ID1 
gE sss I*4 CONTROLLER_ID2 a 000048 L*1 LUN 
2-0000017C I*4 MODEL 00174 I*4 UNIQUE_IDENTIFIER_HIGH 


MSLGSSA_CNT_1D ibege p= 1986 14:67:58 DISKSUMSMASTER: LER, SRCIMSCP.FOR; 1 


ARRAYS 


Address Type Name Bytes Dimensions 
0080000 CHAR SUBSYSTER: CLASS 792 (4)? 
LABELS 
Address Label Address Label Address Label Address Label 
1-00000018 10° 1-00000038 15° 1-00000059 20° 1-00000065 25° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESSC I*4 LIBSEXTZV LINCHK 


3 
3 
3 


MMR Se See ao oe 


2 


r | 
Mergent BBs 92:65:36 bheebimGasten: Fears chcamscp.ror:1 ° 2% co 
| 


Subroutine MSLGS$$B_CNT_SVR (Lun,controller_software_version) 


byte lun 

byte controller_software_version 
integer*4 software_version 

integer*4 compress& 


call Linchk (lun,2) 


write(lun,10) controller mereyere version,software_version 

10 format(' ',t8,'MS CNT_SvR',t30,22.2,/, 
1 t40,*CONTROLLER SOFTWARE VERSION #° | 
1 i<compress4 (software_version)>,'.'5 


| 
| 
software_version = LibSextzv(0,8,controller_software_version) | 
| 
| 


return | 
en 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 96 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 8 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 4 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 


ENTRY POINTS 


| 
Total Space Allocated 218 
| 
| 
Address Type Na-e | 


0-00000000 MSLG$$B_CNT_SVR 
VARIABLES 
Address Type Name Address Type Name 
AP-00000008@ L*1 CONTROLLER_SOF TWARE_VERSION AP-00000004@ L*1 LUN 


2-00000000 [*4 SOFTWARE_VERSION 


2 
See eet if-S60-1 984 92:63:36 DESKSUMSHASTER: FEAF ehcamscp.ror;1 729° & 
LABELS 
Address Label 


1-0000000C 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESS4G I*4 LIBSEXTZV LINCHK 


| 


-_ 


WWII RNRNNNNNNN 2 2 HS ee ee eo 


Ssssssssssssssssssss 


2 


Subroutine MSLGS$B_CNT_HVR (Lun,controller_hardware_version) 


byte lun 

byte controller_hardware_version 
integer*4 hardware_version 

integer*4 compress 


hardware_version = LibSextzv(0,8,controller_hardware_version) 
call Linchk (Llun,2) 


write(lun,10) controller pareyere version,hardware_version 
10 format(' ',t8,'MSLG T_HVR',t30,22.2,/, 
1 t40,"CONTROLLER HARDWARE REVISION #', 
i<compress4 (hardware_version)>,'.') 


return 
en 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 9 PIC CON REL LCL SHR EXE 
1 SPDATA 8 PIC CON REL LCL SHR NOEXE 
2 SLOCAL 40 PIC CON REL LCL NOSHR NOEXE 
Total Space Allocated 219 
ENTRY POINTS 
Address Type Name 
0-00000000 MSLGS$$B_CNT_HVR 
VARIABLES 
Address Type Name Address Type Name 
AP-000000088 L*1 CONTROLLER_HARDWARE_VERSION 2-00000000 1*4 HARDWARE_VERSION 
AP-000000048 L*1 LUN 


VAX=-11_ FORTRAN 
DISKSVMSMASTER: 


if-$00-1984 00:24:12 


- SRCIMSCP.FOR; 1 


RD NOWRT LONG 
RD NOWRT LONG 


MSLGSSB_CNT_HVR ifr seo 19H 92:63:38 DEEKSUmSAAS TER: LEAP SRcaMscP. FoR:1 


Page 63 | 
LABELS 
Address Label 


1-0000000C 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESS4 I1*4 LIBSEXTZV LINCHK 


m Pei ote 5 


BSS33S38 


ee ee 


esssessss 


Nn-—oO 


SG se ee re as a 


2588 


Subroutine MSLGS$W_MULT_UNT (Lun,multi_unit_code) 


S 


7 byte lun 
0008 
0009 integer*2 multi_unit_code 
0010 
0011 
Borg call Linchk (lun,1) 
0014 write(lun,10) "MSLGSW mA! _UNT' ,multi_unit_code 
0015 10 format(' ',t8,a,t28,2%.4 
0016 
0017 return 
0018 
0019 
0020 
pind Entry MSCPS$$W_MULT_UNT (Lun,multi_unit_code) 
$038 
Bose call Linchk (lun,1) 
oose write(lun,10) "MSCPSW_MULT_UNT’ ,multi_unit_code 
0028 return 
0029 end 


1$-$00-1984 90:26:12 YAK] FORTRAN V5.4=56 


3 
MSLGSSW_MULT_UNT 16-Sep-19 4 00: VAX-11 FORTRAN V3.4-56 Page 65 
-Sep-1984 14: DISKSVMSMASTER: CERF .SRCJMSCP.FOR;1 | 


PROGRAM SECTIONS 

Name Bytes Attributes 

0 SCODE 132 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA $6 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 2 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 206 


ENTRY POINTS 
Address Type Name Address Type Name 
0-00000042 MSCPS$$W_MULT_UNT 0-00000000 MSLG$$W_MULT_UNT 


VARIABLES 
Address Type Name Address Type Name 
AP-000000048 L*1 LUN AP-000000088 I*2 MULTI_UNIT_CODE 


LABELS 
Address’ Label 
1-00000022 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 

Type Name 
} 

LINCHK 


dD 3 
16=Sep-1984 00:24:1 VAX=11 FORTRAN V3.4-56 Page 66 FOR 
g-308- 138% 99: 7:2 DI SKSVMSMASTER: CERF SRCIMSCP. FOR: 1 ™ | 
0001 LAE 
BOs 
fied Subroutine MSLG$$Q_UNIT_ID (lun,unit_idl,unit_id2,expand) 1 
0007 b 
0008 yte lun FUN 
integer*4 unit_id1 
pod integers4 unit_id2 1 
pois logical*1 expand 
0014 integer*4 class 
0015 integer*4 model 
0016 integert4 unique_identifier_high 
SEA integer*4 compressc 
0019 charactert24 subsystem_class(4) 
0020 data subsystem_class(1) /*MASS STORAGE CONTROLLER*'/ 
0021 data . eupeyeton.51008 56? /*DISK CLASS DEVICE*'/ 
ose data subsystem_class(3) /"TAPE CLASS DEVICE®'/ 
O05z data subsystem_class(4) /*DISK CLASS DEVICE®'/ 
0025 
544 call Linchk (lun,2) 
0028 write(lun,5) *MSLG$Q_UNIT_ID* unit idl ,unit_id2 
0029 5 format(' ',t8,a,t26,28.8,7,t24,28.8) 
0031 10 continue | 
td 
it if (expand) then 
0035 unique_identifier_high = LibSextzv (0,16,unit_id2) 
0037 call Linchk (lun,1) 
0038 | 
0039 write(lun.15) unique identifier high,unit_idl 
Bee 15 format(' *,t40,"UNIQDE IDENTIFIER, ',24.4728.8) 
Boeg class = Lib$Sextzv(24,8,unit_id2) 
ok model = LibSextzv(16,8,unit_id2) 
anes ee 
class .gt. 
0047 1 .and. ° 
8 1 class .le. 4 
0049 1) then 


0050 
0051 call Linchk (.un,1) 
6036 : 
005 write(Lun,20) subsystem_class(class) 

0054 20 format(' °,t40,a<compressc (subsystem_class(class))>) 

0055 endif 

0056 

0057 if (class .eq. 2) then 


—_—————_—____——__— 


Cc 
ra 
mn 


uw 
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o 


24:1 VAX=-11 FORTRAN it Pees 
4 14:07:2 DISKSVMSMASTER: CERF .SRCIMSCP.FOR;1 
if (model .eq. 1) then 
call Linchk (lun,1) 
write(lun,.25) *RABO' 
format(' *,t40,a) 
else if (model .eq. 2) then 


call Linchk (lun,1) 
write(lun,25) *RE25' 


else if (model .eq. 3) then 


call Linchk (Llun,1) 
write(lun,25) 'RCF25' 


agorecsegs 2 
é 


sae8232 
nus -O°” 


else if (model .eq. 4) then 


| 
| 
call Linchk (Llun,1) 
write lun,25) ‘RA60‘ 
| 
| 
| 


else if (model .eq. 5) then 


call Linchk (Llun,1) 
write(lun,25) ‘RA81' 


else if (model .eq. 6) then 


call Linchk (lun,1) 
write(lun,25) ‘RDS1' 


else if (model .eq. 7) then 


call Linchk (lun,1) 
write(lun,25) ‘Rx50° 


else if (model .eq. 8) then 


call Linchk (lun,1) | 
write(lun,25) 'RDS2" 


else if (model .eq. 9) then 


call Linchk (lun,1) 
write(lun,25) ‘RD53° 


else if (model .eq. 10) then 


call Linchk (lun,1) 
write(lun,25) ‘RD26' 


else if (model .eq. 11) then 


call linchk (lun,1) 
write(lun,25) "RAB2" 


333s33ssss 
BEES IaIoo 


seegezeecesensc? 


ee ee tt = a = 4) 
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0 
0 
0 
0 
0 
0 
0 
0 
6 
0 
0 
0 


ra | 
"BrRep=1984 12:07:20 DISKSUMSMASTER:LERF.SRcIMscP.FoR;1 “29° © co 


else if (model .eq. 12) then Ful 


call Linchk (lun,1) 
write(lun,25) "RC26" 


else if (model .eq. 13) then 


call Linchk (Llun,1) 
write(lun,25) ‘RCF26" 
endif 


MSLG$$Q_UNIT_ID 


—— 


else if (class .eq. 3) then 
if (model .eq. 1) then 


call Linchk (lun,1) 
write(lun,25) ‘TU78' 


else if (model .eq. 2) then | 
call Linchk (lun,1) 


lelelelelelelelelelele olelel alo) 
WN" ODONOUS WN —OOOnou 


ee ee ed ee 


oe 
EP 
a 
~- 
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write(lun,25) ‘TU81' 

0 dif 
0139 endif 
0140 
0141 return 
0 $s 
014 
te Entry MSCP$$Q_UNIT_ID (lun,unit_idl,unit_id2,expand) 
0146 | 
8 rt 4 call Linchk (Llun,2) 

| 
9 49 write(lun,5) "MSCP$SQ_UNIT_ID',unit_id1,unit_id2 | 
0151 goto 10 | 
0 28 
015 end 


wore RSCHMM Q2:G0218 SNEIASRUTAL HE eancr.ronss "OOP © 
PROGRAM SECTIONS 
Name Bytes Attributes 
 SpDATA "he BIE EON REL CEL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 340 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 1747 
ENTRY POINTS | 
Address Type Name Address Type Name 
0-00000455 MSCP$$Q_UNIT_ID 0-00000000 MSLG$$Q_UNIT_ID 
VARIABLES | 
Address Type Name Address Type Name | 
2~00000060 I*4 CLASS AP-00000010@ L*1 EXPAND 
AP-00000004@ L*1 LUN 2-00000064 I*4 MODEL 
2-00000068 I*4 UNIQUE _IDENTIFIFR_HIGH AP-00000008@ I*4 UNIT_ID1 
AP-0000000C@ I*4 UNIT_IB2 
ARRAYS 
Address Type Name Bytes Dimensions | 
2-00000000 CHAR SUBSYSTEM_CLASS 96 (4) 
LABELS | 
Address Label Address Label Address Label Address Label Address Label | 
1-00000072 5° 0-0000004C 10 1-00000084 15° 1-000000A5 20° 1-00000081 25° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESSC I*4 LIBSEXTZV LINCHK 


if: sep- 19 90:63:38 


Subroutine MSLGSSB_UNIT_SVR (Lun,unit_software_version) 


5 
byte lun 

8 byte unit_software_version 
Berg integer*4 software_version 
0012 integer*4 compress& 

1 
Bore software_version = LibSextzv(0,8,unit_software_version) 
id) call Linchk (lun,2) 
001 write(lun | unit gottwere versi 5:33 tswere. version 
itty 10 forest} f tB,'MSLOSB_U ay one £30 0,22.2 
9020 1 t40, "UNIT SOF TOARE VERS 
90 1 1 i<compress4 (software. SION Fe .") 
$058 return 
0024 en 


PROGRAM SECTIONS 


Name Bytes 
0 SCODE 96 
1 SPDATA 77 
2 $SLOCAL 40 

Total Space Allocated 213 


ENTRY POINTS 
Address 
0-00000000 


Name 
MSLGS$$B_U'NIT_SVR 


Type 


VARIABLES 
Address Type 


AP-00000004@ L*1 
AP-00000008@ L*1 


LUN 
UNI T_SOF TWARE_VERSION 


Attributes 

PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL tet NOSHR NOEXE RD WRT LONG 


Address Type Name 
2-00000000 I*4 SOFTWARE_VERSION 


RF. 


56 
SR 


CIMSCP.FOR;1 


Page 70 


MSL 


FUN 


— 


neat se ifoge op-18Bc 92:69:38 — DrekSumSmASTER: FEAR. secamsce.ror;1 729° 7) 


LABELS | 
Address Label 
1-0000000C 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESSG I*4 LIBSEXTZV LINCHK 


000 
000 
000 
000 
001 
001 
001 
001 
001 
001 
001 
001 


ieoseo-19Bs 00:26:13 ated opt 


Subroutine MSLGSSB_UNIT_HVR (Lun,unit_hardware_version) 


byte Lun 

byte unit_hardware_version 
integer*4 hardware_version 
integer*4 compress 


hardware version = LibSextzv(0,8,unit_hardware_version) 
call Linchk (lun,2) 
write(lun,10) b YAtt barduere ve version. h ngrguare. version 


10 rorest) t8 :¢ 
t40, Saf RARDURRE’ abvisron” ] > ate (hardware_version)>,'.") 
return 
end 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 9 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 7 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 40 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 214 


ENTRY POINTS 
Address Type Name 


0-00000000 MSLG$$B_UNIT_HVR 
VARIABLES 
Address Type Name Address Type Name 


2 14 WARDUARE VERSION AP-00000004@ L*1 LUN 
oO obooposa L*l UNIT_HARDWARE_VERSION 


CIMSCP.FOR;1 


Page 
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VAX-11_ FORTRAN y3.4-5 p 3 
DLSKSVMEMASTEN:LERE SRCIMSCP. FOR: 1 _ | 


K 3 
habs ‘63: 
LINCHK 


198s 92:63:36 


ew 
= 
o 
2 
co 
a 
~ 
— 
> 
~ 
— 
=< 
was 
ad 
@ 
— 
z= «a 
oe wv 
a « 
~ 
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Type Name 
1*4 COMPRESS 


FUNCTIONS AND SUBROUTINES REFERENCED 


MSLGS$$B_UNIT_HVR 


a ss 


> 
DWNONEWNOO@NANF UNOS 


S8888ss3s 
SS 


Www 


wn— 


Sep-1 
ifose eet 


Subroutine MSLGSSL_VOL_SER (Lun,volume_serial_number) 
byte Lun 


External Sys$fao 

Logical*4 Sys$fao 

Logical*1 Status 

Character*10 cnvrted_serial_number 
integer*4 volume_serial_number 
integer*4 compress 


call Linchk (lun,2) 


Status = SYSSFAO( ‘!27L',,cnvrted_serial_number, 
1 si AL(volime_serTal_number) ) 


«NOT. status) then 
IGNAL (status) 


volume _serial_number,cnvrted_serial_number 
PMSLGSC Yu per t24,28.8,/, 


f 

e(Lun,10 
t ot 

IAL FF 


) 
mat ( 2." 


t40,"VOLUME S$ 
return 
end 


VAX-11 FORTRAN 


RiP -4-56 
DISKSVMSMASTER: CERF ..SRCIMSCP.FOR; 1 


wn—oO 


MSLGSSL_VOL_SER 


PROGRAM SECTIONS 
Name 
0 SCODE 
1 SPDATA 
2 SLOCAL 
Total Space Allocated 


ENTRY POINTS 
Address Type Name 
0-00000000 MSLGS$L_VOL_SER 


VARIABLES 
Address Type Name 
2-00000001 CHAR CNVRTED_SERIAL_NUMBER 
AP-00000004a L*1 
AP-000000088 I1*4 VOLUME_SERIAL_NUMBER 
LABELS 
Address Label 
1-00000008 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
LIBSSIGNAL L INCHK 


Bytes 
95 


2 


227 


m 3 
Ssep=19be 40:67:20 DISKSUMSRASTER 


Attributes 
PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Address Type Name 
$-0000000¢ 1*4 COMPRESS4 
-00000000 L*1 STATUS 
Type Name 


L*4 SYSS$FAO 


Y3,6°26 
: CERF .SRCIMSCP.FOR; 1 


| 
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16-Sep-1984 21 VAX-11 FORTRAN V3.4-56 Pa 76) 
§- -Sep-1984 90:37 3 DISKSVMSMASTER: CERF .SRCIMSCP.FOR;1 - 


Subroutine MSLGSSL_GAP_CNT (Lun,gap_cnt) 


3333s 


Byte lun 
Integer*4 gap_cnt, COMPRESS4, count 000 
10 Count = LIBSEXTZV (0,16,gap_cnt) 4 
\3 Call LINCHK (Lun,1 854 
1 Write “hyn, 10) hint GAP_CNT',gap_cnt,count 01 
0014 10 Format ( 001 
9015 1 140, "GAP toust’s +f ec te sss (count)>,".") oot 
0019 Return 001 
0018 End | 001) 
PROGRAM SECTIONS | 
Name Bytes Attributes 
0 SCODE 106 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 64 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 $SLOCAL 48 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 218 


ENTRY POINTS 
Address Type Name 


0-00000000 MSLGS$$L_GAP_CNT 
VARIABLES 
Address Type Name Address Type Name Address Type Name 
2-00000000 I*4 COUNT AP-000000088 I*4 GAP_CNT AP-00000004@ L*1 LUN 
LABELS | 
Address Label 
1-0000001A 10° 


MSLGSS$L_GAP_CNT 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
1*4 COMPRESS4 I*4 LIBSEXTZV 


Type Name 
LINCHK 


4 
ig-Se0-19 2 42:83:38 —-BTRSiwSRASTEN- PERE SRcamscp.ror;1 P89e 7? 


cnenerenstieosoter 
| 


MSI 


FUI 
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Sep-1984 00: VAX=11 FORTRAN V3.4-56 Page 78. 
if Been 1aRe FEG3§ | Pied GAN SteN:Eeae Secamscp.ron;1 °° | 


Oo 

So 
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000 Subroutine FORMATTER_VERSIONS (Lun,s_vers,h_vers) | 
0005 Byte lun, hivers, S_vers 
500% Integer*4 COMPRESS4, version 

0008 
0009 
B19 Version = LIBSEXTZV (0,8,s_vers) 
0012 Call LINCHK (Lun,4) | 
0014 urite (Lun, 19) AMSi.G88 FRTR ~$yR" Ss. vers,version | 
0015 10 Format (* ©, 18,A,10,22.2 | 
0016 1 Ormat Ce SOF ware CERSTON” #*, I<COMPRESS4 (version)>,'.") 

id Version = LIBSEXTZV (0,8,h_vers) 

0020 Write (lun, 3) 5 anskesenrs rare HVR' ,h_vers,version 

poss 15 Format (' /7T P 

002¢ 1 rast ck TRARBUARE? GeRSION #'  I<COMPRESS4 (version)>,'.") 

0024 Return 

0025 End 


PROGRAM SECTIONS 
Name Bytes Attributes 


0 SCODE 189 PIC CON REL LCL SHR EXE RD NOWRT LONG 

1 SPDATA 150 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 

2 SLOCAL 56 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 395 


ENTRY POINTS 
Address Type Name 


0-00000000 FORMATTER_VERSIONS 
Address Type Name Address Type Name Address Type Name Address Type Name 


AP-0000000C@ L*1 


VARIABLES | 
H_VERS AP-00000004@ L*1 LUN AP-000000088 L*1 S_VERS 2-00000000 1*4 VERSION | 


00: 
00 
00: 
03 
00¢ 
00 
00¢ 
00 
00 
00. 
00 


Page 79. 


FORMATTER.WENSIONS WESSoc}9RE Q0:34:18  YMNCHNAERRTEIN YESS consce.ronsi P28® 7 
LABELS 
Address Label Address Label 
1=0000002A 10° 1-00000060 “5° 


| 
| 
FUNCTIONS AND SUBROUTINES REFERENCED | 
Type Name Type Name Type Name | 
1*4 COMPRESS4 1*4 LIBSEXTZV LINCHK | 


Sep-1984 4: VAX=-11 FORTRAN V3.4=-56 Page 80 
1f-Se0-1984 90: §3 Mg DISKSVMSMASTER: LER RF ..SRCIMSCP.FOR;1 . 


Subroutine MSLGSS$L_BUS_ADDR (lun,bus_address) | 


S009 byte lun 

0008 
0009 integer*4 bus_address 

0010 

0011 

pols call Linchk (lun,1) | 
0014 write(lun,10) bus_address | 
O013 10 format(' ',t8,"MSCG$L_BUS_ADDR',t24,28.8) | 
SEA call calc_map (lun,16,bus_address,bus_address) 
0019 return | 
0020 end 


PROGRAM SECTIONS | 


Name Bytes Attributes 
0 SCODE 79 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 36 §=6PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 32 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 147 


| 
ENTRY POINTS | 
Address Type Name | 


0-00000000 MSLG$$L_BUS_ADDR 
VARIABLES 
Addiess Type Name Address Type Name 


AP-00000008@ I*4 BUS_ADDRESS AP-00000004@ L*1 LUN 


LABELS 
Address Label 
1-00000008 10° 


—————_—___+—_—_—— 


F 4 
MSLGS$L_BUS_ADDR 16-Sep-1984 et 


VAX=11 FORTRAN V3.4-56 Page 81 
5-Sep-1984 14: 


£36 DISKSVMSMASTER: CERF .SRCIMSCP.FOR;1 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
CALC_MAP LINCHK 


MS( 


Ful 


— 


IBese sep- 138% 90: 86 VAX-11 FORTRAN V3.4-56 Page 82 
-Sep-1984 DISKSVMSMASTER:LERF ..SRCIMSCP.FOR; 1 


0001 | 90¢ 
g | oC 
¢ Subroutine MSLGS$S$B_LEVEL (Lun,level) | ; 

0007 byte lun 909 

0008 byte level | 000 

$010 001 

0011 call Linchk (lun,1) 4 

18 | 001 
1 write(lun,10) level 1 

0014 10 format(' ,t8, *MSLGSB_LEVEL',t30,22.2) | oo} 

0016 return | 001 

0017 end sd 


Name Bytes Attributes 
0 SCODE 56 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 29 ~=PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 12 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 


Total Space Allocated 97 


| 
ENTRY POINTS | 
Address Type Name | 

| 


0-00000000 MSLGS$B_LEVEL 
VARIABLES 
Address Type Name Address Type Name 
AP-000000088 L*1 LEVEL AP-00000004@ L*1 LUN | 
LABELS | 
Address Label 


1-00000004 


10° 


4 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
LINCHK 


age "EAGER AERIS WPS GARENN.U 
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16-Sep-1984 00:24: VAX=11 FORTRAN V3.4-56 Page 84 
300-1382 ? 6 Hi DISKSVMSMASTER:LERF ..SRCIMSCP.FOR;1 “ 
Subroutine MSLGS$B_RETRY (lun,retry) 


byte lun 
byte retry 


eeeeseeee 


call Linchk (lun,1) 


Bare 
ip 
8018 write(lun,10) retr 
0014 10 format(’ ',t8, MSLOSB_RETRY*,t30,22.2) 
BO18 return 
001 en 


00¢ 
C 

C 
OC 
00¢ 
001 
801 
1 
001 
001 
001 
001 
001 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 56 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 29 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 12 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 97 
ENTRY POINTS 


Address Type Name 


0-00000000 MSLGS$$B_RETRY 
VARIABLES 
Address Type Name Address Type Name 
AP-000000048 L*1 LUN AP-000000088 L*1 RETRY 
LABELS | 


Address Label 
1-00000004 10° 


4 
mSLGBSB_RETRY WBeSep-1984 90:24:12 WAKE FORTRAN YB.b=56 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
LINCHK 


Page “ 


| 
| 
| 
| 
| 
| 


MS( 
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VAX-11 FORTRAN V3.4-56 Page 86 
DISKSVMSMASTER: CERF .SRCIMSCP.FOR;1 


wn 


Subroutine MSLG$$2_SD1 (lun,sdil,sdi2,sdi3) 


uw 


include ‘src$:msghdr.for /nolist’ 
include ‘src$:embimdef.for /nolist' 


00C 
000 
3 
001 
801 
001 
001 
001 
001 
001 


call Linchk (lun,3) 


byte Lun | 
integer*4 sdil 
integer*4 sdi 
integer*4 sdi 
integer*4 c_ flags 
integer*4 retry_count | 
logical*1 init_diagnostic_failure | 
integer*4 previous_command 
integer*4 cylinder_low | 
integer*4 cylinder_high 
integere4 cylinder | 
integer*4 current_group 
integer*4 led_display_code 
| 
| 


write(tun,10) sdil,sdi2,sdi3 
10 format(’ §,t8,"MSLG$Z_SD1',t24,28.8,/,t24,28.8,/,t24,28.8) 


call generic_sdi (lun,sdil,sdi2,sdi3) 
If (LIBSEXTZV(3,1,sdil) .£Q. 1) then 


1 
1 
1 
1 


if ¢ 
emb$b_im_type .eq. 20 
2Of » 
emb$b_lm_type .eq. 21 | 
) then 
| 
| 


call ra8x_status (lun,sdil,sdi2,sdi3) 
endif 


if (emb$b_im_type .eq. 20) then 

call ra80_status (lun,sdil,sdi2,sdi3) 
else if (emb$b_lm_type .eq. 21) then 
call raBl_status (lun,sdil,sdi2,sdi3) 
else if (emb$b_lm_type .eq. 22) then 
call ra60_status (lun,sdil,sdi2,sdi3) 


em em et a od 2 od 8 8 dt 8 
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MSLG$$7_SD1 
1 endif 
; 5 endif 
3 return 
1 end 


PROGRAM SECTIONS 


Total Space Allocated 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


ARRAYS 
Address Type 


Le] 
1*4 


Bytes 


i 
533 
917 


Name 
MSLG$$7_SDI 


CURRENT_GROUP 
CYLINDER HIGH 


EMBSW"LM-MSGTY 
NLT DIAGNOSTIC. FAILURE 


“vnr 
om 


4 
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VAX=11 FORTRAN 


-56 
DISKSVMSMASTER 


Page 
«SRCIMSCP.FOR; 1 “ 


teat 


Attributes 
PIC CON REL LCL § EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Address Type Name 
-00000018 I*4 CYLINDER 
mets St I*4 CYLINDER_LOW 
-00000010 Ll € _LM_CLASS 
-00000011 L*l EMBSB_LM_TYPE 
-00000015 CHAR EMBST_LM_NAME 
-0000000 iss EMBSW_HD_ERRSEQ 
-800000¢ Hef CED MTSPLAY. CODE 
- Minti 1*4 PREVIOUS_COMMAND 
AP-000000088 I*4 SDI1 
AP-000000108 I1*4 SDI3 
Bytes Dimensions 
51 9: 511) 
460 (460) 
8 (2) 


87. 


M 4 
eget, ot: Be eep= 198s 12:07:20 DISKSVMSMASTER:LERFsshcIMscP.FoR;1 Ae* 98 
LABELS | 
Address Label 
1-00000008 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name Type Name Type Name Type Name Type Name 
GENERIC_SD I*4 LIBSEXTZV NCHK TAT 
RAK SIRIUS LINC RA60_STATUS RA80_STATUS RA81_STATUS 


: 

1 
Bot 

1 
001 
001 
001 
001 
001 
001 
002 
002 
002 
002 
002 
002 
002 
002 
002 
a0 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
004 
004 
004 
38 
004 


mE wnr 


ENTRY POINTS 
Address Type Name 


0-00000000 MSLGS$$W_SDE_CYL 
VARIABLES 
Address Type Name 
P-000000048 L*1 LUN 
LABELS 
Address Label 


1-00000004 10° 


iene 0:34:3 


Subroutine MSLGS$W_SDE_CYL (lun,small_disk cylinder) 


5 byte lun 
9 integer*2 small_disk_cylinder 
11 
pots call Linchk (lun,1) 
0014 write(lun,10) small disk ert indes 
oo19 10 format(' ',t8,*MSLGSw_SDE_CYL",t28,24.4) 
0019 return 
0018 end 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 56 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 31 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 12 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 99 


Address Type Name 
AP-000000088 I*2 SMALL_DISK_CYLINDER 


VAX=11_ FORTRAN 
DISKSVMSMASTER 


Heat? 


SRCIMSCP.FOR;1 
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FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
LINCHK 


Fe rr anes Be eee ge EE Te eh nas OE ae nT ae TED ae EE Ee atte Ra Gee oe ee oe ee eae oe ] 
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00 
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00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
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00 
00 
00 
00 
00 
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Subroutine MSLGSS$L_HEADER (lun,header) 


i byte lun 
0009 integer*4 header 
integer*4 Lon 
integers4 code 
integer*4 compress4 


call Linchk (lun,1) 


write(lun,5) header 
format(* *,t8,"MSLGSL_HEADER',t24,28.8) 


Entry DISK_HEADER (Lun,header) 
lLbn = LibSextzv(0 gs header) 
code = Lib$extzv(2 .4,header) 
call Linchk (lun,2) 

if (code .eq. 0) then 


write(lun,10) lbn, "GOOD LOGICAL SECTOR’ 
format(' '§,t40,'LBN #",i<compress4 (lbn)>,'.",/,t40,a) 


else if (code .eq. 3) then 

write(lun,10) Lbn,"BAD REVECTORED LOG. SECTOR’ 

else if (code .eq. 5) then 

write(lun,10) Lbn,"BAD PRIMARY REVECT. LOG. SECTOR’ 
else if (code .eq. 6) then | 


write(lun,11) Lbn,"BAD REPLACEMENT SECTOR" 
format(’ ',t40,'RBN #',i<compress4 (Lbn)>,'.',/,t40,a) 


else if (code .eq. 11) then 


write(lun,12) "BAD SECTOR #*,|bn 
format(" *,t40,a,i<compress4 (lbn)>,'.") 


else if (code .eq. 12) then 


write(lun,13) lbn, "GOOD EXTERNAL SECTOR‘ 
format(' ',t40, 'XBN #',i<compress4 (lbn)>,".',/,t40,a) 


else if (code .eq. 14) then 
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MSLGSSL_HEADER 
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DISKSVMSMAST 


0058 

59 write(lun, 14) Lon 6090 DIAGNOSTIC SECTO 

14 format(' ',t40, 'DBN -i<compress4 (lbn)>, 8 /th0,a) 

og. else 
$oe8 write(lun,15) "HEADER #',lbn,'.*, "RESERVED HEADER CODE, #',code,' 
0064 15 format (' ,t40,a, i<compress4 (ibn)>,a,/ t40,a,i<compress4 isa 
0065 endif 
006? return 
0068 en 


PROGRAM SECTIONS 


Name Bytes 
0 SCODE 661 
1 SPDATA 375 
2 SLOCAL 160 
Total Space Allocated 1196 
ENTRY POINTS 
Address Type Name 
0-0000003A DISK_HEADER 
VARIABLES 
Address Type Name Address 


2-00000004 I*4 CODE 


LABELS 


Address Label Address Label 


1-000000CC 5° 1-000000E6 10° 
1-0000015E 15° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
I1*4 COMPRESS4 


Type Name 
I*4 LIBSEXTZV 


—-—————__——_----—- ieiieaiiai 


AP-00000008@ I*4 HEADER 


Attributes 

PIC CON REL LCL SHR EXE RD NOWRT LONG 

PIC CON REL LCL SHR NOEXE RD NOWRT LONG 

PIC CON REL LCL NOSHR NOEXE RD WRT LONG 

Address Type Name 
0-00000000 MSLGSS$L_HEADER 
Type Name Address Type Name 
2-00000000 I*4 LBN 
Address’ Label Address’ Label Address 

1-00000100 11° 1-0000011A 12° 1-0000012A 


Type Name 


LINCHK 


AN 


Address Type Name 


Rif -56 
ER: CERF .SRCIMSCP.FOR; 1 


AP-00000004@ L*1_ LUN 


Label 
73° 


Address 


1-00000144 


Page 


Label 
14° 


3 


: 


PROGRAM SECTIONS 


LABELS 
Address Label 
1-0000000C 10° 


byte lun 
byte reservedb 
0010 
Bot) call Linchk (lun,i) 
8018 write(lun,10) hei eH D',reservedb 
0014 + 10 format(’ ',t8,a,t30,22.2) 
0015 
0016 return 
0017 en 


5 
IB-Se0-19 4 
-Sep-1984 


Subroutine MSCP_RESERVEDB (Lun,reservedb) 


Name Bytes Attributes 
0 SCODE 66 PIC CON REL LCL SHR _ EXE 
1 SPDATA 24 PIC CON REL LCL SHR NOEXE 
2 SLOCAL 20 PIC CON REL LCL NOSHR NOEXE 
Total Space Allocated 110 
ENTRY POINTS 
Address Type Name 
0-00000000 MSCP_RESERVEDB 
VARIABLES 
Address Type Name Address Type Nor 
AP-00000004@ L*1 LUN AP-00000008@ L*1 RESERVEDB 


10:67:26 


VAX=11 FORTRAN V3.4-56 
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RD NOWRT LONG 


RD 


RD NOWRT LONG 
WRT LONG 


Page 


93 


~ 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


eS 


4 
| 


F 5 
ped pera TSSEECHBRE 92:89:38 BISCRUMGRASTRN.FBaFsBRcamsce.rons1 720° | 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
LINCHK 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
a8 
00. 
00 
00: 
00. 
3 
00 
00 
00 
00 
ot 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


| 
| 
| 
| 
| 


=z 
y” 
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Rit; -56 
~Sep-1984 DISKSVMSMASTER: CERF ..SRCIMSCP.FOR;1 


0001 01 

4 

¢ subroutine MSCP_RESERVEDW (lun,reservedw) | 0 

01 

byte lun 8 

09 integer*2 reservedw | Of, 

0011 01; 

0018 call Linchk (lun,1) | gt: 

44 write(lun,10) "RESERVED ,reservedw | | 
0015 10 format(' ',t8,a,t28,24.45 | 
pote 

001 return 

0018 end 
| 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 66 eit CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 24 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 20 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 

Total Space Allocated 110 


ENTRY POINTS 
Address Type Name 


0-00000000 MSCP_RESERVEDW 
VARIABLES | 
Address Type Name Address Type Name 
AP-00000004@ L*1 LUN AP-000000088 I*2 RESERVEDW 
LABELS 


Address Label 
1-0000000C 10° 


pon apm: iE $0001 2:87:35 DTScSvmsmasten: Lear sRcamscp.ror:1 “28° °° 
FUNCTIONS AND SUBROUTINES REFERENCED | 
Type Name 
LINCHK 


$888888833838383883sss 


SS88SS8SSSSSSSSSSSSSSSS: 


subroutine MSCP_RESERVEDL (lun,reservedl) 


byte lun 


integer*4 reserved| 


call Linchk (lun,1) 


write(lun, 10) "RESERVED', reservedl 
10 format(' ‘ tB,a,t 4,2 .8) 


return 
en 


Name Bytes Attributes 


Total Space Allocated 110 


ENTRY POINTS 
Address Type Name 
0-00000000 MSCP_RESERVEDL 


VARIABLES 
Address Type Name 
AP-00000004@ L*1 LUN 


Address Type Name 
AP-00000008@ I*4 RESERVEDL 


LABELS 
Address Label 
1-0000000C 10° 


0 SCODE 66 PIC CON act LCL 
1 SPDATA 24 =PIC CON REL LCL 
2 SLOCAL 20 =PIC CON REL LCL 


VAX=11 FORTRAN ¥3.4=56 


Be 10:67:26 


EXE RD NOWRT LONG 
LONG 


SHR NOEXE RD NOWRT 
NOSHR NOEXE RD WRT LONG 


DISKSVMSMASTER: CERF .SRCIMSCP.FOR;1 
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=z 
" 


00: 
a 

i 
00 
00: 
00: 
09 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00! 
00) 
00! 
00: 
00) 
00! 
00! 
00! 
00! 
00! 
00' 


ss 


S33$383s 


ee ss a ss ss 4 4 = 


COOCoOoCoCCoCoOCoCcooom 


Fi 


5 | 
en! ee 1B $e0-1 984 92:63:38 —-BTScbmSQaSten: Fear sehcamscp.ror;1 P29 98 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
LINCHK 


: 


St on as 9 as ss 4 _s 
ae re ee ee ee 


ie 92:67:25 DISksumsmasten:LEAFsecamscp.ror:1 2% 


Subroutine MSCP_RESERVEDQ (Lun,reservedq) 


byte lun 
integer*4 reservedq(2) 


call Linchk (lun,2) 


write(lun,10) "RESERVED', (re ervedg(i),i = 1,2) 
10 format(' be! Was vbe8. toe, 28. a) 


return 
end 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE g PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 3 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 44 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 166 


ENTRY POINTS 
Address Type Name 


0-00000000 MSCP_RESERVEDQ 
VARIABLES 
Address Type Name Address Type Name 
2-00000000 I*4 | AP-000000048 L*1 LUN 
ARRAYS 
Address Type Name Bytes Dimensions 


AP-000000088 1*4 RESERVEDO 8 (2) 


5 
ee seanrc if-Se0-1 984 92:67:35 DASkSumsmasten:Fearssecamscr.ror;1 "29e 100 
LABELS 
Address Label 


1-0000000C 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 


| 
| 


SSSSSS3SSS3 


LINCHK 


ee 


00 
90 
00 
00 
00: 
00 
00 
00 


_ 
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Subroutine MSCPS$W_UNT_FLGS (Lun,unit_flags,expand) 


byte lun 
integer*2 unit_flags 
logical! expand 
character*17 viunit_ flags(0:2) 
data viunit flags(0) /*COMPARE READS*'/ 
data viunit_flags(1) ay PARE WRITES*'/ 
O18 data viunit flags(2) /'576 BYTE SECTORS*'/ 
H character*26 v2unit_flags(6:7) 
1 a Vv unit. ttegs 6g) /*WRITE BACK (NON-VOLATILE)*'/ 
4 data veunit flags(7) /*REMOVABLE MEDIA®'/ 
88 ¢ character*35 v unit .ftoge (18:19? 
vsunit_flags(10)/"SUPPRESS CACHING (LOW SPEED)*'/ 
0024 data v unit” flags (11)/ "SUPPRESS CACHING (HIGH SPEED*'/ 
0025 data v the he op ET ead BL PROTECT (SOFTWARE OR VOLUME)*'/ 
90¢6 data v3unit-flags(13)/"WRITE PROTECT (HARDWARE) ®'/ 
27 data vSunit_flags(14)/"INACTIVE SHADOW SET UNIT#'/ 
0099 data vSunit_flags(15)/*CONTROLLER BAD BLOCK REPLACEMENT®'/ 
003 call Linchk (Lun,1) 
0038 write(lun,10) unit 


flags 
format(' 'tB, "MSCPSW ONT_FLGS*,t28,24.4) 


0034 
0035 
Boas if (expand) then 
0038 call output (lun,unit_flags,viunit_flags,0,0,2,'0") 
0940 call output (lun,unit_flags,v2unit_flags,6,6,7,'0') 
Beg call output (lun,unit_flags,v3unit_flags,10,10,15,'0") 
Boe endif 
5 return 
0046 en 


nN 5 
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PROGRAM SECTIONS | 
Name Bytes Attributes 


s 


0 SCODE 1 PIC CON REL LCL § EXE RD NOWRT LONG 

1 SPDATA PIC CON REL LCL SHR NOEXE RD NOWRT LONG 

2 SLOCAL 5 PIC CON REL LCL EXE RD WRT LONG 
Total Space Allocated 708 


| 
| 
| 
| 
ENTRY POINTS 
Address Type Name | 
0-00000000 MSCPS$W_UNT_FLGS 
| 


88888388ssS 


VARIABLES 
Address Type Name Address Type Name Address Type Name 
AP-0000000C@ L*1 EXPAND AP-000000048 L*1 LUN AP-00000008@ I*2 UNIT_FLAGS 


ARRAYS 
Address Type Name Bytes Dimensions 


- CHAR VIUNIT_FLAGS 51 (0:2) 

~90000053 CHAR V@UNIT“FLAGS g (6:7) 

00000067 CHAR V3UNIT~FLAGS 210 (10:15) 
LABELS 


Address Label 
1-0000001E 10° 


EN] 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 


Al 
LINCHK OUTPUT 


LAt 


—————— —~ 


: | 
NEER-HORE Q234238 REHIMEONERAN.YEA}“Htanscesronsn P20* 13 


Subroutine MSCPSSL_MEDIA_ID (lun,media_id,expand) 


a3 


| 
| 
| 
| 
| 
byte lun 

0008 

0009 integer4 media_id 

0010 

bE lLogical*1 expand | 

tk: character*2 letter(31) 

0014 data letter(1) /*Ae'/ 

0015 data Letter (¢) /*Be'/ 

0016 data letter(3) /*Ce'/ 

0017 data letter (4) /*De'/ 

0018 data letter (5) /*Ea'/ 

0019 data letter (6) /*Fe'/ 

0020 data letter(7) /*Ge'/ 

0021 data letter (8) /*He'/ 

itt) data letter (9) /*Ie'/ 

002 data letter (10) /*je'/ 

0024 data letter(11) /*Ke'/ 

0025 data potters ig: /*Ue'/ 

0026 data letter(13) /*Me'/ 

0027 data letter(14) /*Ne'/ 

0028 data letter(15) /*O«'/ 

0029 data letter(16) /*Pe'/ 

0030 data letter(17) /'Qe'/ 

0031 data letter (18) /*Re'/ 

its data letter(19) /*S*'/ | 

003 data letter (20) /*Te'/ 

0034 data letter(21) /*Ux'/ 

0035 data letter ( $3 /*ye'/ 

0036 data letter (23) /*e'/ 

0037 data letter (24) /*Xe'/ 

0038 data letter(25) /*Y¥e'/ 

0039 data letter (26) /*Je'/ 

0040 data letter(27) /* a'/ 

0041 data letter (28) /* a'/ 

98 data letter (29) ee | 

004 data Letter (30) /*,e'/ 

bee data letter(31) f°." 7 

BOse integer*4 d(0:1) 

004 integert4 a(0:2) 

0048 integere4 n 

0048 integer*4 compress4 

0051 chorectors¢ d_string 

B03¢ character* a_string 

it 

55 call Linchk (lun,1) 
0036 
005 write(lun,5) "MSCPSL_MEDIA_ID* ,media_id 


6 
gin Seep if-sep-1984 90:67:28 DteKs Ren: Fear ssacamscp.ror:1 P29° 104 
608 


5 format(* *,t8,a,t24,28.8) 
if (expand) then 
d(0) = LibSextzv(27,5,media_id) 
d(1) = LibSextzv(22,5,media_id) 
a(0) = LibSextzv(17,5,media_id) 


Ooo 


ats 


oO 
OC 
O¢ 
OC 
OC 
OC 
OC 
OC 
OC 


a5e¢ 


} 

| 
Does a(1) = LibSextzv(12,5,media_id) 
TA a(2) = LibSextzv(7,5,media_id) 
007 n = LibSextzv(0,7,media_id) 
0078 - OC 
0074 do 10,i = 0,1 
0075 oC 
0076 if (dCi) .eq. 0) then OC 
0077 | 0¢ 
0078 d_string(i#1:i+1) = char(0) 0c 
0079 else oC 
0080 | oC 
0081 d_string(i+1:i+1) = letter(d(i)) NC 
pose endif OC 
008 0¢ 
0084 10 continue OC 
0085 . | oC 
0086 do 15,i = 0,2 oC 
0087 OC 
0088 if (aCi) .eq. 0) then 0c 
$090 ing(i+1:i+1) har (0) 

a_string(i¢1:i+1) = char 
0091 else : 
a4 
009 a_string(i+1:i+1) = letter(a(i)) | 
Rope endif 
15 cont inue | 

0097 
0098 call Linchk (lun,2) 
6100 write(lun,20) "DEVICE TYPE, /*.dstring,'/' 
Bigs 20 format(’ ',t40,3(a)) 
0103 write(lun,25) "MEDIA TYPE, /‘,a_string.n,'/* 
0104 25 format(* ',t40,a,a,i<compress4 (n)>,a | 
0105 endif 
0106 
010 return 
0108 end 


MSCPSSL_MEDIA_ID 


PROGRAM SECTIONS 


Name Bytes 


¢ Eat i 
27 


2 SLOCAL 
Total Space Allocated 783 


ENTRY POINTS 
Address Type Name 
0-00000000 MSCPS$L_MEDIA_ID 


VARIABLES 
Address Type Name 


2-00000054 CHAR A_STRING 2- 
AP-000000048 L LON 


Address 
nb-00000008a 
ARRAYS 
Address Type Name 
-00000008 
$B9000000 


Bytes 
I*4 A 12 
I*4 D0 8 
CHAR LETTER 62 


LABELS 
Address Label Address Label 
1-0000004F 5° ee 10 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
1*4 COMPRESS4 


Type Name 
I*4 LIBSEXTZV 


Attributes 


Type Name 


CHAR D_ STRING 
I*4 MEDIA_ID 


Dimensions 


Address Label 
ae 15 


Type Name 
LINCHK 


$-sep-1984 90:53:36 Pee amGRR FEN Peae eScamsce.rorst 


SHR EXE RD NOWRT LONG 
SHR NOEXE RD NOWRT LONG 
SHR NOEXE RD WRT LONG 

Address Type Name Address Type Name 
AP-0000000C@ L*1 EXPAND 2-0000005C I*4 | 
2-00000058 I*4 N 

Address’ Label Address’ Label 


1-0000005B 20° 1-00000067 25° 
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a28 


S838sss 


Ww 


call Linchk (Lun,1) 
control_message_type = LibSextzv(0,8,opcode) 


sited Subroutine MSCPS$$B_OPCODE (Lun, opcode,expand) | 

byte lun | 
8 byte opcode 

O01 ema wee | 
nteger* control_message_type 

$018 intesersé compress4 “— 

0014 

0015 

Borg call Linchk (lun,1) 

0018 If (LIBSEXTZV(6,2,0opcode) .£Q. 0) then | 

0020 write(lun,10) "MSCP$B CSc Ose" 0 code 

0088 10 format(’ ',t8,a,t30,22.2 , 

0038 Else if (LIBSEXTZV(6,2,opcode) .E—Q. 1) then | 

$4 Write (lun,10) "MSCPSB_ATNCODE' ,opcode 

4 34 Else if (LIBSEXTZV(6,2,opcode) .EQ. 2) then | 

0029 Write (lun,10) "MSCPSB_ENDCODE' ,opcode 

0080 Else - oe | 

0032 Write (lun, 12 opcode 

3 12 Format (' ',130,22.2) 
35 Endif 

if (expand) then | 


ooon 


if (control_message_type .eq. 1) then 


write(lun, 15) ‘ABORT’ 
15 format(' t t40.a) 


else if (control_message_type .eq. 2) then 
write(lun,15) ‘GET COMMAND STATUS’ 

else if (control_message_type .eq. 3) then 
write(lun,15) "GET UNIT STATUS‘ 

else if (control_message_type .eq. 4) then 
write(lun,15) ‘SET CONTROLLER CHARACTERISTICS* 


Ssssss 


oO 
oO 


SSS8883SSS3S 


———————————— . — - . . = 


MSCPS$B_OPCODE 


33 
VFWwN—OOWw 


write(lun,15) ‘AVAILABLE’ 


write(lun,15) ‘ONLINE’ 


else if (control_message_type .eq. 8) then 


else if (control_message_type .eq. 9) then 


it else if (control_message_type .eq. 10) then 
0969 write(lun,15) "SET UNIT CHARACTERISTICS* 
ta else if (control_message_type .eq. 11) then 
G0r$ write(lun,15) “DETERMINE ACCESS PATH(S)' 
Bor? else if (control_message_type .eq. 16) then 
0077 write(lun,15) ‘ACCESS’ 
it 4 else if (control_message_type .eq. 17) then 

3 write(lun,15) ‘COMPARE CONTROLLER DATA‘ 
oF else if (control_message_type .eq. 18) then 
sie write(lun,15) ‘ERASE’ 
0087 else if (control_message_type .eq. 19) then 
0089 write(lun,15) ‘FLUSH* 
Gost else if (control_message_type .eq. 20) then 
009 write(lun,15) ‘REPLACE’ 
0095 else if (control_message_type .eq. 32) then 
de write(lun,15) ‘COMPARE HOST DATA‘ 
ste else if (control_message_type .eq. 33) then 
819) write(lun,15) ‘READ’ 

198 else if (control_message_type .eq. 34) then 
199 write(lun,15) ‘WRITE’ 
x else if (control_message_type .eq. 64) then 
O10 write(lun,15) ‘AVAILABLE’ 

a else if (control_message_type .eq. 65) then 
O18 write(lun,15) *DUPLICa.c UNIT NUMBER’ 


16- : “19 
5805-198 


Sr 
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115 else if (control_message_type .eq. 66) then o8 
HH ur Stetlan, $53 "ACCESS PATH* 4 
11 00 
120 ge scotty, 2) control boeasege type 00 
121 20 format(' *,t40,*CONTROL MESSAGE TYPE, a 00 
i ; 1 1 iscompress4 leontrel. _message_type)>,'.!) 4 
: : endif 90 
3 § return 4 
1 end 00 
00 

00 

00 

00 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 1149 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 364 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 224 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 1737 


| 
ENTRY POINTS | 
| 
Address Type Name 

| 


0-00000000 MSCP$$B_OPCODE 
VARIABLES 
Address Type Name Address Type Name 
2-00000000 I*4 CONTROL_MESSAGE_TYPE AP-0000000C@ L*1 EXPAND 
AP-000000048 L*1 LUN AP-00000008@ L*1 OPCODE 
LABELS 
Address Label Address’ Label Address Label Address Label 
1-00000128 10° 1-00000134 12° 1-0000013D 15° 1-00000144 20' | 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESS4 1*4 LIBSEXTZV LINCHK 


H 6 
16-Sep-1984 00:24:1 
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VAX=11 FORTRAN ¥3,8-26 
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Subroutine MSCPS$W_MODIFIER (Lun,opcode,command_modifier,expand) 


: 


byte lun 
byte opcode 
att integer*2 command_modifier 
gore logical*1 expand 
Bote integer*4 control_message_type 
e018 character*33 vimodi fier(4:15) 
001 vimodifier(4)  /"WRITE SHADOW SET, SINGLE UNIT(S)*'/ 
0018 data vimodifier(5) /*WRITE BACK (VOLATILE) ®'/ | 
0019 data vimod) i yer se: /*WRITE BACK (NON-VOLATILE)*'/ 
0020 data vimodifier(7)  /"SUPPRESS SHADOWING®'/ 
0021 data vimods tier) /*SUPRESS ER COVERY** 
00 ¢ data vimodi fier (9) /*SUPRESS ERROR CORRECTION®'/ 
00 data vimodifier(10) /*SUPRESS CACHING (LOW SPEED) *'/ 
0024 data vimodifier(11) /"SUPPRESS CACHING (HIGH SPEED)*'/ 
0025 data vimods tier tig /"FORCE ERROR®' 
0026 data vimodifier(135) /‘*CLEAR SERIOUS EXCEPTION®'/ 
0027 data vimodifier(14) /*COMPARE®'/ 
BB ; data vimodifier(15) /*EXPRESS REQUEST*'/ 
0030 character*10 vigue_sodi tier t):0) 
BB 1 vigus_modifier(0) /*NEXT UNIT#'/ 
0038 character*18 viavailable_modifier(0:1) 
00 data viavailable_modifier(0) /*ALL CLASS DRIVERS*'/ 
Bae data viavailable_modifier(1) /'SPIN-DOWN®'/ 
0037 character*27 vionline_modifier(0:4) 
00 data vionline_modi fier (0) /"ALLOW SELF DESTRUCTION®' 
9 data vionline_modifier(1) /" IGNORE MEDIA FORMAT ERROR*'/ 
0 data yiont jne_modi torte /*ENABLE SET WRITE PROTECT*#'/ 
1 data vionline_modifier(3) /*CLEAR WRITE-BACK DATA LOST®#'/ 
Bog data vionline_modifier(4) /*SHADOW UNIT SPECIFIED*®'/ 
Goes character*27 visuc_modifier(2:4) 
$ equivalence (visuc_modifier(2),vionline_modifier(2)) 
8 character*18 viftushmodi tier (8:1) 
9 t viflush_modi fier (0) /"FLUSH ENTIRE UNIT#'/ 
3 data viflush_modifier(1) /*VOLATILE ONLY*'/ 
0084 character*26 virestacenedi tier (9:0) 
27 t vireplace_modifier(0) /*PRIMARY REPLACEMENT BLOCK*'/ 
55 
28 call Linchk (lun,1) 
5 


6 
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write(lun,10) command modifier 
format(’ °,t8,*MSCPSW_MODIFIER',t28,24.4) 


if (expand) then 
control_message_type = LibSextzv(0,8,opcode) 
if (control_message_type .eq. 3) then 


call output (Lun,command_modifier,vigus_modifier,0 9.9 "9° 
call output (lun, command-modifier.vimodtfier,4,13,13,'0") 


else if (control_message_type .eq. 8) then 


Stata 


| 
| 
| 
| 
| 
: 
| 


0071 

th} call output (Lun,command_modifier,viavailable_modifier,0,0,1,'0") 
Babe call output (Lun,command_modifier.vimodifier,%,13,13,'0'S 

9 else if (control_message_type .eq. 9) then 

007? call output (lun,command_modifier,vionline_modifier 0,0,.4,°0") 
Bere call output (lun,command_modifier.vimodifier,4,13,15, 0°) 


else if (control_message_type .eq. 10) then 


output (Lun,command_modifier,visuc_modifier,2 ¢-¢ ‘0") 
call output (lun,command-modifier.vimodtfier,4,15,13,'0") 


0085 else if ( 
control_message_type .eq. 16 


Faees 


or. 
control_message_type .eq. 17 


soesseseeee 


00 
00) 
00) 
00) 
09 
00' 
09 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00. 
00 
00 
00 
00. 
00: 
00 
00 
00. 
00 
00 
00 
00: 
00: 
00: 
09 
$ 


output (Lun,command_modifier,vimodifier,4,7,11,'0') 
call output (Lun, command modi tier.vimoditier 4.13.13, (0°) 
call output (lun,command_modifier,vimodifier,4,15,15,'0") 
iad else if (control_message_type .eq. 18) then 
0099 call output (lun,command_modifier,vimodifier,4,4,8,'0') 
100 call output (Lun, command-nodi tier .vimoditier 4.12.13, 0°) 
+ 4 cail output (lun,command_modifier,vimodifier,4,15,15,'0") 
Oi08 else if (control_message_type .eq. 19) then 
$108 call output (lun,command_modifier,viflush_modifier,0,0,1,'0") 
106 call output (Lun,command_modifier.vimodifter,4,7,9,'0'5 
10 call output (Lun, command-nodi tier.vimoditier 4.13.13, :0:) 
Hs call output (lun,command_modifier,vimodifier,4,15,15,'0") 
‘9 else if (control_message_type .eq. 20) then 
Ng call output (tun.conmand sod! fier .vireptace nod! ier,0,0,0,'0") 
gi call output (lun,command_modifier,vimodifier,4,1 136105 
114 call output (lun,command_modifier,vimodifier,4,15,15,'0"? 


or. 

control_message_type .eq. 32 
then 

| 

| 


ENTRY POINTS 
Address Type Name 
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11 
if else if (control_message_type .eq. 33) then | 
118 call output (Lun, command_modifier,vimodifier,4,7,11,'0") 
119 call output (lun,command-modifier,vimodifier.4.15,15,'0") 
, 1 else if (control_message_type .eq. 34) then 
1 § call output (Lun,command_modifier,vimodifier,4,4,9,'0') 
4 call output (Lun,command-modifier.vimodifier.4.12,15,'0") 
end ' 
1 $ endif 
1 
3 8 return 
129 end | 
PROGRAM SECTIONS | 
Name Bytes Attributes 
SCODE 698 PIC CON REL LCL SHR EXE RD NOWRT LONG | 
1 $PDATA 74 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 S$LOCAL 1706 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 2476 | 


0-00000000 MSCPS$$W_MODIFIER | 
VARIABLES 
Address Type Name Address Type Name | 
AP-0000000C@ I*2 ey MODIFIER 2-00000280 st ceertees, MESSAGE _TYPE | 
AP-00000010@ L*1 EXPA AP-00000004a L*1 

AP-00000008@ L*1 SPCODE 
ARRAYS | 
Bytes Dimensions 

44 0:1) 

8 (0:1) 
1 (9:02 
1 (0:4) 

6 69:9) 

1 (2:4) 


MSCPS$W_MODIFIER 


LABELS 
Address Label 
1-0000002E 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
I*4 LIBSEXTZV LINCHK 


Type Name 
OUTPUT 


if-$ 


1982 92:63:38 


AX-11_ FORTRAN 


A 
ISKSVMSMASTER: 


Heat =88camscp.ror:1 


} 
| 


Page 112 


$88838888 


= - 


S$888S888S8 


2S 


tat 9007 13Re 2:65:38 «MIE UwSAASten: Fear ctcamscp.ror:1 2% 3 


Subroutine MSCP$$Z7_BUFFER (Llun,buffer) 
include ‘src$:msghdr.for /nolist’ 


byte Lun 
integers4 buf fer (3) 


call Linchk (Llun,3) 


write(lun,10) (buffer (i),i = 

10 format(' ',t8,'MSCP$Z “BUFFER * t24,28.8,/,t24,28.8,/,t24,28.8) 
return 
en 


| 

! 

| 

| 

1,3) | 

| 

PROGRAM SECTIONS 


Name Bytes Attributes 
0 $COD 8¢ PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SBD ATA PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 3 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB 51 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 672 
ENTRY POINTS 
Address Type Name 
0-00000000 MSCP$$2_BUFFER 
VARIABLES | 
Address Type Name Address Type Name 


300000004 1+? EMBSU_HD_ENTRY 
00000000 I*4 | 


SHB | 


MSCPS$Z_BUFFER 


ARRAYS 
Address Type Name Bytes Dimensions 


ist BUFFER 1 (3) 
“ERR YE sig igs 
*4 EMBSO_HD_TIME (2) 


LABELS 
Address Label 
1-00000004 10° 


FUNCTIONS AMOS SUBROUTINES REFERENCED 
Type Name 
LINCHK 


I 


sé - 
Sep- 


1982 92:63:38 BTScbumhasien: 


tes 


-4-56 
F. aRCIMSCP. FOR; 1 


] 


Page 114) 


| 
| 


S888SSssss 


ode, 2 A Om OM OR OM Om Om Om 8 


S83S8sss 


a off off off off off od odd 


N68 a : c | 
=30871 382 99:59:36 DLEKSUMSRASTER: FERF.SRCIMSCP. FOR: 1 eee 


Subroutine MSCPSSL_DEV_PARM (Lun,device_dependant_parameters) 


byte lun 
integers4 device_dependant_parameters 


call Linchk (lun,1) 
write(lun,10) device Copendent parameters 


| 
format(' ',t8,'MSCPSC_DEV_PARM”,t24,28.8) | 
return 
end 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 56 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 32 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 $SLOCAL 12 PIC CON REL LCL NOSHR NOEXE RD WRT LONG | 
Total Space Allocated 100 
ENTRY POINTS 
Address Type Name | 
0-00000000 MSCPS$L_DEV_PARM 
VARIABLES 
Address Type Name Address Type Name | 
AP-000000088 I1*4 DEVICE_DEPENDANT_PARAMETERS AP-00000004@8 L*1 LUN 
LABELS 


Address Label 
1-00000004 10° 


MSCPSSL_DEV_PARM 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
LINCHK 


' 


5 
eo- 
gep- 


1982 99:85:38 


Vv 
D 


A 
I 


Xe 
SKSVMSMASTER 


1 A 


: CERF ..SRCIMSCP.FOR;1 


Page 116 


338 


eS SS 


Oot 
00 
3 
00 
00 
00 
00 
00 
00 
00; 
00¢ 
00¢ 
00; 
00¢ 
00< 
00<¢ 
00¢ 
00¢ 
002 
003 


+ 
| 


7 
ib-se -1984 00:24:1 VAX=11 FORTRAN V3.4-56 Page 117) 
4 Bc 90:57:26 DISKSVMSMASTER: CERF .SRCIMSCP.FOR;1 : 


coo 

BPR Subroutine MSCPS$W_SHDW_UNT (Lun,shadow_unit,expand) | 

isd byte lun 

0008 

0009 integer*2 shadow_unit 

Bort logical*1 d | 

ogical* expan 

001 integer*4 compress4 

0014 

0015 | 

Beg 

SEA call Linchk (lun,1) | 

0019 write(lun, 10) shadow_unit 

9020 10 format(' ',t8,'MSCP$@_SHDW_UNT’,t28,24.4) | 

002¢ if (expand) then | 

00 : call Linchk (lun,1) 

0026 write(lun,15) shadow_unit 

0027 15 format(' *,t40,'SHADOW UNIT #',i<compress4 (shadow_unit)>,'.") 

00 . endif 

8 return 

0031 end | 
| 
! 
i 


MSCPS$SW_SHDW_UNT 


PROGRAM SECTIONS 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 
AP-0000000C@ L*1 


LABELS 
Address 
1-00000004 10' 


Type Name 
I*4 COMPRESS4 


Label 


Name Bytes 
9 SCODE 138 
SPDATA g 
2 SLOCAL 4 

Total Space Allocated 224 


Name 
MSCPS$$W_SHDW_UNT 


Name Address 
EXPAND AP-000000048 L*1 LUN 
Address’ Label 


1-00000020 15° 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 
LINCHK 


Type Name 


dD 7 


Sep 19be 14:07:20 


Attributes 
SHR EXE 
SHR NOEXE 
NOSHR NOEXE 


Address 
2-000000008 I*2 SHADOW_UNIT 


RD NOWRT LONG 
RD NOWRT LONG 
RD WRT LONG 


Type Name 


VAX-11 FORTRAN ft Poe: 
DISKSVMSMASTER: CERF .S 


6 
RCIMSCP.FOR;1 


5 
| 


Page 118 | 


S$83333SSSS3383 


$38888888S88¢ 


00f 
00% 
00% 
00% 
00% 
00% 
00% 
008 
00% 
005 
005 
005 
00% 
00% 
00‘ 
005 


i l,l, el, i, Le, Ll, Le, 


el ee ed ed = ts 


Subroutine MSCPS$$W_COPY_SPD (lun,copy_speed) 


5 
byte Lun 
4 integer*2 copy_speed 
11 
Oot call Linchk (lun,1) 
0014 write(Llun, 10) seer so°¢6 
apt? 10 format(' ',t8, "MSCP$W_COPY SPD" ,t28,24.4) 
0019 return 
0018 end 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 56 PIC CON REL LCL 
1 SPDATA 32 PIC CON REL LCL 
2 SLOCAL 12 PIC CON REL LCL 
Total Space Allocated 100 


ENTRY POINTS 
Address Type Name 


0-00000000 MSCPS$$W_COPY_SPD 
VARIABLES 
Address Type Name Address Type Name 


AP-000000088 I*2 COPY_SPEED AP-00000004@ L*1 LUN 


LABELS 
Address Label 
1-00000004 10° 


SHR EXE 
SHR NOEXE 
NOSHR NOEXE 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


RD NOWRT LONG 


RD 


RD NOWRT LONG 
WRT LONG 


PgR RCIMSCP. FOR;1 


xz 
g 


pelelelelolelelelelo) 
pane oe ee oe ee ee ee ert 


mem imeem em kkk 


? 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
LINCHK 


F 
RSCPSSU_COPY_ SPD "er 8eb718Rs 92:69:38 BISkdumSmASTER: PERE. Sec IMSCP. FOR: 1 


} 
} 
————d 


wre 


“ 


ONOUESWNR—O 


ENTRY POINTS 


0-00000000 


VARIABLES 


AP-000000048 L*1 


LABELS 


1-00000004 


10° 


byte 
integer*2 


call Linchk (lun,1) 


write(lun, Th mSC 
10 format(' 


return 
end 


Total Space Allocated 


Address Type Neme 
MSCPS$$W_VERSION 


Address Type Name 


Address Label 


Subroutine MSCPS$W_VERSION (Lun,mscp_version) 


$w "YERSION’ , £28, 24.4) 


Attributes 


Type Name 
AP-00000008@ I*2 MSCP_VERSION 


VAX=11 FORTRAN 


4-56 
DISKSVMSMASTER: CERF ..SRCIMSCP.FOR; 1 


RD NOWRT LONG 
RD NOWRT LONG 
R WRT LON 


eC 


: 
00¢ 
80 

i 
007 
007 
007 
007 
007 
007 
007 
007 

é 

é 

é 

é 
00& 
00é 
00é 
O0E 
00 
00€ 
005 


$88383838s 


9 
CILIA 


oooo 


MSCPS$W_VERSION 1% -Sep-1984 4: VAX-11 FORTRAN V3.4-56 Pp 122 | 
“300-1984 Pe gas PERchUNGMAS TEN LEAL Secomscp.ron:1 2% 2 
| 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
LINCHK 


| 
| 
| 
| 
| 
| 
| 


? 
Ibese 1984 00:24: VAX=11 FORTRAN V3.4-56 P 123 
~Sep-19 4 90:67:38 DISKSVMSMASTER: CERF .SRCIMSCP.FOR; 1 meee 


4 
4 
‘4 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1' 
1 


COCooCooCooeo 


; 
| Oot 
Subroutine MSCPS$W_CNT_FLGS (Lun,controller_flags,expand) | 90¢ 
( 
byte lun | 03 
integer*2 controller_flags 00¢ 
10 . og | 00¢ 
A} logical*1 expand | 09 
( 
13 character*17 vicontrotter_flags (9:1) i 
14 data vicontroller-flags(0) /°576 BYTE SECTORS*'/ 00; 
9015 data vicontroller-flags(1) /*SHADOWING®'/ | pod 
{ 
0017 character*34 = v2controller_flags(4:7) sid 
( 
0019 data v2controller flags (4) 00; 
9020 1 /*ENABLE ERROR LOG MSG., TRIS HOST#'/ sid 
0038 data v2controller_flags(5) O0E 
9023 1 /*ENABLE ERROR LOG MSG., OTHER HOST*'/ Sot 
$098 data v2controller_flags(6) 008 
9026 1 /"ENABLE MISC. ERROR LOG MESSAGES®'/ 4 
$038 data v2controller. flags (7) 008 
$583 1 /"ENABLE ‘ATTENTION’ MESSAGES®*/ 4 
itt character*33 v3controller_flags(15:15) | Oot 
6038 data v3controller_flags(15) | 005 
0034 1 /"CONTROLLER BAD BLOCK REPCACEMENT®'/ 005 
$5 8 
00 005 
0038 call Linchk (lun,1) Bos 
0040 write(lun,10) controller hens 005 
0041 10 format(’ ',t8,'MSCP$W_CNT_FLGS’,t28,24.4) o0; 
Boe$ if (expand) then " 
boes call output (lun,controller_flags,vicontroller_flags,0,0,1,'0") ( 
$ call output gTun-contrer ler. t} ops. vecentret ier. th ees.> 4,7,°0") ( 
5 cat) cutout (lun,controller_flags.v controller~flags.15,15.1 Pe 
9 ( 
50 return ( 
51 en | ( 

| 

| 

| 

j 


rf-se0-1984 90:26:12 WAKELY FORTRAN V5.4056 page 124 


MSCPS$W_CNT_FLGS 


PROGRAM SECTIONS 


LABELS 
Address Label 
1-00000016 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
OUTPUT 


“| 
| 
| 

Name Bytes Attributes 
9 $cove 122 BIC CON REL LCL SHR EXE RD NOWRT LONG | 
SPDATA PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 416 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 588 
ENTRY POINTS 
Address Type Name 
0-00000000 MSCPS$W_CNT_FLGS 
VARIABLES 
Address Type Name Address Type Name 
AP-00000008a ist CONTROLLER_FLAGS AP-0000000C@ L*1 EXPAND 
AP-000000048 L*1 LUN 
ARRAYS | 
Address Type Name Bytes Dimensions 
-00000000 CHAR VICONTROLLER_FLAGS 4 (0:1) 
3-S0000029 CHAR V2CONTROLLER_FLAGS 136 (4:7) 
“O00000AA CHAR VSCONTROLLER_FLAGS (15:15) 
| 
| 


LINCHa 


Eee eee aaa aaa. = = - —_—_— 


K 7 
ig-soon 138% re HS VAX-11 FORTRAN V3.4-56 
-Sep-1984 14:07:2 DISKSVMSMASTER: CERF .SRCIMSCP.FOR;1 


Subroutine MSCPS$W_HST_TMO (Lun, host_timeout ,expand) 


byte lun 

integer*2 host_timeout 
logical! expand | 
integer*4 compress4 


call Linchk (lun,1) 


write(lun,10) host_timeout 
format(' ',t8,"MSCPS$wW_HST_TMO’,t28,24.4) 


if (expand) then 
call Linchk (lun,1) 


_ 
oO 


write(lun,15) host_timeout 
jormest gitd- HOST TIMEOUT, *,i<compress4 (host_timeout)>, 


endif 
return 
end 

| 


— 
uw 


Sesseesssssssssseseasssasaese3 


SOO ODNOME WN“ OOONOU EWN —O 


MSCPS$W_HST_TMO If 50 0071 38t 99: $3 \s VAX-11 FORTRAN 


-Sep- 
PROGRAM SECTIONS 
Name Bytes Attributes 
RD NOWRT LONG 


RD NOWRT LONG 


'% 
1 SPDATA 
2 24 RD WRT LONG 


Total Space Allocated 232 


ENTRY POINTS 
Address Type Name 
0-00000000 MSCPS$W_HST_TMO 


VARIABLES 


Address Type Name Address Type Name Address Type Name 


AP-0000000C@ L*1 EXPAND 2-00000000@ I*2 HOST_TIMEOUT AP-000000048 L*1 LUN 
LABELS 
Address Label Address Label 
1-00000004 10° 1-0000001F 15° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
1*4 COMPRESS4 


Type Name 
LINCHK 


DISKSVMSMASTER: 


3.4=56 Page 1 
ERF.SRCIMSCP.FOR:1 26 


00 
005 
005 
005 
005 
005 
005 
005 
005 
005 
if 


( 
( 
( 


SOOCOCOCOOOCOOOOSCoOO 


ao ee ws ws ss 4 ss 4 


-~ 
Qo 


— 
uw 


20 


Subroutine MSCPS$Q_TIME (Lun, vms_time,expand) 


byte lun 
integers4 vms_time(2) 
lLogical*1 expand 
logical*4 sysSasctim 


character*23 timbuf 


call Llinchk (lun,2) 


write(lun,10) yms time(1) 
format(’ *,t8,'MSCPS$O_TIME',t24,28.8) 


if (expand) then 
if (sysSasctim (,timbuf,vms_time,%val(0))) then 


write(lun,15) vms_time(2),timbuf 
het ae ds Ree Sper! feet 


write(lun,15) vms_time(2) 


return 
end 


7 


ig-seort84 90:26:12 


VAX- 


11 F 
DISKSVMSMA 


=z 
" 
o 


ee ee cee ce ce cel ee cee cel ee cel cee el cee ee el el eel el cel ene eel cel eel cel el cel el eels cel cls cecal cel cecal cele eel cls ceed el ceed cel cel cel cel cee cls cel cel cecal cel cecal eel calls 
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CDOOOOSCOOSCSCSOSCOSOSOSOOCOOSOOSOOSOOOOSOCOOCOOSCOSOSCOOSCOOOOOCOOOOOOOOOOOOOoOOCOO 


——<—$——$—$ ————$— ee 


n 7 
MSCPS$Q_TIME 16-Sep-1984 00:24: VAX-11 FORTRAN ¥3.4-56 Page 128 MSC 

§- 900-1383 99:59:38 DI SKSVMSMASTER: CERF ,SRCIMSCP. FOR: 1 - 
PROGRAM SECTIONS | uy 
Name Bytes Attributes | 4 
$ CODE 173. PIC CON REL LCL SHR EXE RD NOWRT LONG | 7 
ATA 4 pic CON REL LCL SHR NOEXE RD NOWRT LONG 7 
2 SLOCAL 84 PIC CON REL LCL NOSHR NOEXE RD WRT LONG | A 
Total Space Allocated 299 | if 
18 
ENTRY POINTS gis 
Address Type Name ats 
0-00000000 MSCPS$OQ_TIME ig 
019 
VARIABLES 8ig 
Address Type Name Address Type Name Address Type Name aig 
AP-0900000C@ L*1 EXPAND AP=000000048 L*1 LUN 2-00000000 CHAR TIMBUF aig 
019 
ARRAYS O13 
Address Type Name Bytes Dimensions O30 
AP-000000088 I*4 VMS_TIME 8 (2) 850 
3 
LABELS 9 9 
Address Label Address Label Address Label O20 
1-00000004 10° 1-0000001C 15° 0-000000AC 20 3 
1 
FUNCTIONS AND SUBROUTINES REFERENCED ! 
Type Name Type Name ° . 
LINCHK L*4 SYSSASCTIM | 
1 
1 

| 

} 


Redes ana 72:67:35 DESkSUMSMASTER:LERF-SRcaMscp.ror;1 "29° 129 


g 


Subroutine MSCPS$$W_STATUS (Lun,end_message_status_code,expand) 


$3335 


sia byte Lun 

Bare integer*2 end_message_status_code 
001 lLogical*1 expand 

0018 

0014 integer*4 status_code 

0015 integere4 compress4 

0016 

0017 

0018 

0019 call Linchk (lun,1) 

0020 

0021 write(lun,10) end_message status code 
0022 10 format(' 


if (expand) then 


~ 
o 


Call STATUS_AND_EVENT_CODES (lun) 
Endif 


ssssseee 
SOOONOU Ew 


return 
d 


| 

| 

| 

»t8, "MSCP$w_STATUS',t28,24.4) 
| 


MSCPS$W_STATUS 


PROGRAM SECTIONS 


Name Bytes 
0 SCODE 75 
1 SPDATA 33 
2 SLOCAL 

Total Space Allocated 133 


ENTRY POINTS 
Address Type Name 
0-00000000 MSCP$$W_STATUS 


VARIABLES 

Address Type Name 
COMPRESS4 
EXPAND 
STATUS_CODE 


2-00000004 [#4 
AP-0000000C@ L*1 
2-00000000 [4 
LABELS 
Address Label 
1-00000004 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
LINCHK 


1f-sep-1984 00:36 


Attributes 
ed 
SHR 
NOSHR 


EXE RD NOWRT LONG 
NOEXE RD NOWRT LONG 
NO EXE RD WRT LONG 


Address Type Name 
AP-00000008a is¢ oe MESSAGE _STATUS_CODE 


AP-00000004a L*1 


Type Name 
STATUS_AND_EVENT_CODES 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


3.4-56 
ERF .SRCIMSCP.FOR;1 


— 


MS( 


dD 8 
16-Sep-1984 00:24:1 VAX=11 FORTRAN V3.4-56 Page 131 
~Sep-19 4 92: 7:2 DISKSVMSMASTER: CERF ..SRCIMSCP.FOR;1 : 
Subroutine MSCP_FIRST_TWELVE_BYTES1 (lun,expand) 


include ‘src$:msghdr.for /nolist‘ 


Seseseesesse 


| 
| 
| 
byte lun 
20 logicale1 expand | 
Bors integers4 mscp$l_cmd_ref | 
0074 ee mscp$w_unit | 
Bre integer* reserved! | 
007 byte ots pean 
0078 byte reserved 
0079 
goed integer*2 mscp$w_modifier 
ier} integer*4 mscp$l_out_ref | 005 
0084 equivalence (emb(38) ,mscp$l_cmd_ref) | 002 
0085 equivalence (emb(42) ,mscp$w_unit) 002 
0086 equivalence (emb (44) ,reserved1) 002 
0087 equivalence (emb (46) ,mscp$b_opcode) 002 
0088 equivalence (emb(47) ,reservede) 005 
0089 equivalence (emb(48) ,mscp$w_modi fier) O83 
9091 Logical*1 End_message So8 
$098 End_message = .false. oo8 
0095 If (LIBSEXTZV(7,1,mscp$b_opcode) .£Q. 1) then oo8 
0097 End_message = .true. | 003 
0098 Endif Ona 
0160 call mscp$$l_cmd_ref (Lun,mscp$l_cmd_ref) | Boe 
198 call mscp$$w_unit (lun,mscp$w_unit,expand) | 9 
ie call mscp_reservedw (lun,reserved1) B38 
108 call mscp$$b_opcode (Lun,mscp$b_opcode,expand) | aos 
108 If (.NOT. end_message) then 803 
110 call mscp_reservedb (lun,reserved2) 005 
11 Else | 005 
118 Call MSCPS$B_FLAGS (Lun, reserved2,expand) | 5 
114 Endif 3 
115 | 5 
j 
} 
| 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


3.4-56 


Page 132 
ERF .SRCIMSCP.FOR;1 


MSCP_FIRST_TWELVE_BYTES1 ib-se Sep=1984 00:24 


-Sep-1984 


PROGRAM SECTIONS 
Name 

0 $COD 

1 SPDATA 

Be $LOCAL 


Bytes 


Total Space Allocated 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


ARRAYS 
Address Type 


-00000000 L*1 
00000006 [4 


Name 
MSCP_FIRST_TWELVE_BYTES1 


“OU 
MSCP$W-UNIT 
RESERVED2 


EMB 
EMBSQ_HD_TIME 


172 

8 
144 
512 


836 


118 If (.NOT. end_message) then 

Ai8 gett mscpS$$w_modifier (lun,mscp$b_opcode,mscp$w_modifier,expand) 
120 

121 Call MSCPS$W_STATUS (Lun,mscp$w_modifier,expand) 

1 ¢ Endif 

1 

124 return 

125 end 


Attributes 

PIC CON REL LCL SHR EXE RD NOWRT LONG 

aie CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE D WRT LONG 

PIC OVR REL GBL SHR NOEXE RD WRT LONG 


Address Type 


00000004 1* 
z os tf 


9000 Is 


Bytes Dimensions 
51 (0:511) 
8 (3) 


ay HD ENTRY 
-MESSAGE 


WeCPSL CMD _REF 
MSCPSW°MODIFIER 
RESERVED! 


s 


009 
009 
009 


eet ee at et as = ot = os — = 2 
et et etd et SS IAILBIOIIOAIOOomgo 


ole lelelolelojlolelalololaloil~) 


F 8 | 

MSCP_FIRST_TWELVE_BYTES1 16-Sep-1984 00:24: VAX=11 FORTRAN V3.4=56 Page 133. 

Breen Re PRESS Pee ebdGOAS TEN Peat Sécamsce.ror:1 2% | 

FUNCTIONS AND SUBROUTINES REFERENCED | 

Type Name Name Type Name 

1*4 LIBSEXTZV MSCPS$B_FLAGS MSCP$$B_OPCODE 
MSCPSSL_CMD_REF MSCPSSW"MODIFIER MSCPSSW~STATUS 
MSCPS$W~UNIT MSCP_RESERVEDB MSCP_RESERVEDW 


0 
0 
0 
0 
0 
0 
0 
0 
0 
3 
0 
0 
6 
0 
3 
8 
0 
3 
: 


el a ee ee ee ce ae ee ee cee ee ee ce ee ee ee ee ee ce ee ce ce ce el el el el ce ce el lt el el cee ee ec ee el a ce ee ce eee eo 
RRR FRR ER RA GLALALALALALALALALALA SE BD BS OB EB EB Bi od ol ol ot oft ft oli lt lt PIP I I PI 


DD 
> 
on 


8 
IB-se 1986 00:24:12  VAX#11 FORTRAN V3.4-56 Page 136 
eee 138e F2:83:5§ — Stedintaasten:Feae-cecamscp.ron;1 °2* 


Subroutine MSCP_FIRST_TWELVE_BYTES2 (Lun,expand) 


include ‘src$:msghdr.for /nolist' 


Seeesssess 


call mscp$$w_unit (Lun, mscp$w_unit,expand) 


a8 


call mscp_reservedw (lun,reserved2) 


7 
? 
7 
7 
7 
7 
7 
7 
8 

byte lun 
0069 : 
9070 logical? expand | : 
007¢ integers4 reserved! | 4 
0074 integer* mscp$w_unit 8 
BOT? ee reservede | é 
0077 byte Boceen, ayceee | 

yte reserve 

0079 9 
0080 integer®2 reserveds | 
¢ equivalence (emb(38) ,reserved1) 9 
equivalence (emb(42) ,»mscp$w_unit) 9 
equivalence (emb(44) ,reservede) 9 
0085 equivalence Cemb(4 } amscp$b_opcode) 9 
0086 equivalence (emb(47) ,reserveds) 9 
0087 equivalence (emb(48) ,reserved4) Q 
0088 0 
0089 0 
R099 call mscp_reservedl (lun,reserved1) 3 
0 
0 
0 
0 
0 


call mscp$$b_opcode (lun,mscp$b_opcode,expand) 


S32333 
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call mscp_reservedb (lun,reserved3) 
sigs call mscp_reservedw (lun, reserved4) 
1 return 
108 end 
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PROGRAM SECTIONS 


Name Bytes Attributes 

SCODE 97 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SLOCAL 8 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
—EMB 51 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 689 


ENTRY POINTS 
Address Type Name 
0-00000000 MSCP_FIRST_TWELVE_BYTES2 


VARIABLES 
Address Type Name Address Type Name 
ae see's a a I*4 EMBSL_HD_SID 3-00000004 I*2 EMB$W_HD_ENTRY 
-OO00000E I*2 EMBSW_HD_ERRSEQ AP-00000008@ L*1 EXPAND 
AP-00000004@ L*1 LUN -0000002E L*1l MSCP$B_OPCODE 
=0000002A I*2 MSCPSW_UNIT -00000026 I*4 RESERVED! 
“0000002C I*2 RESERVED2 -0000002F L*1 RESERVED3 
O I*2 RESERVEDS 
ARRAYS 
Address Type Name Bytes Dimensions 
-00000000 L*1 EMB 512 (0:511) 
-00000006 I*4 EMBSQ_HD_TIME 8 (2) 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 


MSCP$$B_OPCODE MSCPS$$W_UNIT MSCP_RESERVEDB 
MSCP_RESERVEDL MSCP_RESERVEDW 
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~Sep-19 4 90:67:26 DISKSVMSMASTER: CERF .SRCIMSCP.FOR; 1 mi 


@D 
> 
ro 


subroutine MSCP_INVALID_COMMAND_END_MESAGE (Lun) | 
include ‘src$:msghdr.for /nolist' | 
byte Lun 
integer*4 mscp$l_cmd_ref 
pategerss mscp$w_unit 
integer* reserved! 
byte mscp$b_endcode 3 
byte mscp$b_ flags 3 
integer*2 mscp$w_status > 
byte manufactured_mscp$b_opcode 3 

pos equivalence (emb(38) ,mscp$l_cmd_ref) 
equivalence Cemb(42) ,mscp$w_uni ft) 
equivalence (emb(44) ,reserved!) 

5 equivalence (emb(46) ,mscp$b_endcode) 

008? equivalence (emb(48) ,mscp$w_status) 

sit equivalence (emb(94) ,manufactured_mscp$b_opcode) 

0090 


call Linchk (lun,1) 


write(lun,10) 
10 format(’ °,:) 


33s 


wn 


call mscp$$l_cmd_ref (lun,mscp$l_cmd_ref) 
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31 
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call mscp$$w_unit (lun,mscp$w_unit,.true.) 


sssseeeesee 
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call mscp_reservedw (lun,reserved1) ; 

Call MSCPS$B_OPCODE (Lun,mscp$b_endcode, .true.) ; 

106 Call MSCPS$B_FLAGS (lun,mscp$b_flags, .true.) ; 

388 Call MSCPS$W_STATUS (Lun,mscp$w_status, .true.) ; 
198 Call MSCPS$B_OPCODE_DISPATCHER (lun,manufactured_mscp$b_opcode, 

4 1 .false., .true.) 3 

iW call Linchk (lun,1) ; 

Hae: Cte oceans nee, aul : 

115 ‘ 34 


equivalence (emb(47) ,mscp$b_ flags) 
| 
| 
j 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


I*2 
SE 
fo 1 
at ed 
ARRAYS 
Addiess Type 


SRUEE 3 


1*4 
LABELS 
Address 


1-0000000C 10° 


MSCP_INVALID_ COMMAND _END_ME SAGE r 


Total Space Allocated 


Label 


116 call move3 (Zval (36) ,emb(86) ,emb(38)) 

HH gett mscp$b_opcode_dispatcher (lun,manufactured_mscp$b_opcode,.true., 
11 - false.) 

120 

121 return 

122 end 


Bytes Attributes 
" PIC CON REL LC 
g PIC CON REL LC 
156 PIC CON REL LC 
512 PIC OVR REL GB 
926 


Name 
MSCP_INVALID_COMMAND_END_MESAGE 


Name Address Type 
EMBSL_HD_SID 3-00000004 I*2 
EMBSW_HD _ERRSEQ AP-000000048 L*1 
MANUF ACTORED_MSCP$B_OPCODE “O000002E L*1 
MSCPSB_FLAGS -00000026 [4 
MSCPS$W_STATUS -0000002A [#2 
RESERVED1 

Name Bytes Dimensions 


EMB 512 (9:511) 
EMBSO_HD_TIME (2) 


Address 
1-00000011 


Label 
25° 


@D 
> 
o 


8 
-Sep-19 


VAX=-11 FORTRAN 
-Sep-19 


-4-56 
DISKSVMSMASTER: CERF .SRCIMSCP.FOR; 1 


PUPP 


RD NOWRT LONG 
. NOWRT LONG 


pee wl eel el ololelelololeleolelololo) 


L EXE 
‘ SHR NOEXE 
L 


SROSOOO 


Soe. 


So bo bo bo bo be Oo Oo bo bod dd 


EMBSW_HD_ENTRY 


LU 
MSCP$B_ENDCODE 
MSCPSL_CMD REF 


oe oesesssssssssses 


nd 
ooo 


end 
oO 
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oo 
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MSCP_INVALID_COMMAND _END_MESAGE 7” Sep-1 oe 9 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name 
LINC mMOVC3 
RSCPSSB _OPCODE MSCPSSL_CMD_REF 
MSCPS$SW_UNIT MSCP$B_OPCOBE_DISPATCHER 


PERL BE ) 
VAX=11 FORTRAN V3.4-56 Page 138. 
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MSCP$$B_FLAGS 
MSCPS$W°STATUS 
MSCP_RESERVEDW 


2 
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Subroutine MSCPSB_OPCODE DISPATCHER (lun,mscp$b_opcode,expand, invalid) 


include ‘src$:msghdr.for /nolist' 


byte lun 

byte mscp$b_opcode 
logical*] expan 
lopicatel inpatid 
integer*4 mscp$l_opcode 


mscp$l_opcode = LibSextzv(0,7,mscp$b_opcode) 
if (.not. invalid) then 

if (mscp$l_opcode .eq. 1) then 

call mscp$$k_op_abort (lun,expand) 


else if (mscp$l_opcode .eq. 2) then 
call mscp$$k_op_gtcmd (lun,expand) 


else if (mscp$l_opcode .eq. 3) then 
call mscp$$k_op_gtunt (lun,expand) 


else if (mscp$l_opcode .eq. 4) then 
call mscp$$k_op_stcon (lun,expand) 


Else if (mscp$l_opcode .£Q. 7) then 
Call MSCPSSK_OP_SEREX (lun,expand) 


| 
else if (mscp$l_opcode .eq. 8) then 
call mscp$$k_op_avail (lun,expand) | 


else if (mscp$l_opcode .eq. 9) then 
call mscp$$k_op_onlin (lun,expand) 
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else if (mscp$l_opcode .eq. 10) then 
call mscp$$k_op_stunt (lun,expand) 


else if (mscp$l_opcode .eq. 11) then 
call mscp$$k_op_dtacp (lun,expand) 
| 
| 
| 
| 


else if (mscp$l_opcode .eq. 16) then 
call mscp$$k_op_acces (lun,expand) 


else if (mscp$l_opcode .eq. 17) then 
call mscp$$k_op_cmpcd (lun,expand) 
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PAAAAAAAAAAAVI 


else if (mscp$l_opcode .eq. 18) then 


call 


else 
call 


—_— >> 
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else 
call 


else 
call 


else 
call 


else 
call 


else 
call 


else 
call 


else 


call 


else 
call 


else 
call 


else 
call 


else 
call 


else 
call 


else 
call 
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MSCPSB_OPCODE _DISPATCHER 


mscp$$k_op_erase (lun,expand) 


if (ascoS_g code .eq. 19) then 
mscp$$k_op_flush (lun,expand) 


if (mscp$l_opcode .eq. 20) then 
ascpSsh op-repic clunsexpend) 


if (mscp$l_opcode .eq. 32) then 
ascpS$k op-comp legn-supendl 


if (mscp$l_opcode .eq. 33) then 
ascpSsh op-reed (iunsexpand) 


if (mscp$l_opcode .eq. 34) then 
mscp$$k_op_write (lun,expand) 


if (mscp$l_opcode .eq. 64) then 
mscp$$k_op_avatn (lun,expand) 


if (mscp$l_opcode .eq. 65) then 
mscp$$k_op_dupun (lun,expand) 


9 else if (mscp$l_opcode .eq. 66) then 
re call mscp$$k_op_acpth (lun,expand) 
$g else 
re call Linchk (lun,1) 

45 write(lun,5) 
5 format(* *,:) 


Call DUMPREG (Lun,9,emb(38)) 
endif 


if (invalid) then 


if (mscp$l_opcode .eq. 1) then 


invalid_mscp$$k_op_abort (lun,expand) 


if (agcpS\ opcode -eq. 2) then 
invalid_mscp$$k_op_gtcmd (lun,expand) 


if (m cPsl opcode -eq. 3) then 
invalid_mscp$$k_op_gtunt (lun,expand) 
if (mscp$l_opcode .eq. 4) then 
invalid_mscp$$k_op_stcon (lun,expand) 


if (mscp$l_opcode .eq. 8) then 
invalid mstpb$k_op avail (lLun,expand) 


if (ascpS\ opcode -eq. 9) then 
invalid_mscp$$k_op_onlin (lun,expand) 


if (ascp$l opcode -eq. 10) then 
invalid_mscp$$k_op_stunt (lun,expand) 
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MSCPSB_OPCODE_DISPATCHER 16-Sep-1984 00:24: VAX=11 FORTRAN V3.4-56 Page 141. 
g-328713 4 90:39:56 DISKSVMSMASTER:CERF.SRCIMSCP.FOR:1 | 
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else if (mscp$l ode .eq. 16) then 
re call invalid mstpbSk_op ecces (Lun,expand) 


else if (ascpst opsede -eq. 17) then 


call invalid_mstp$$k_op_cmpcd (lun,expand) 


else if (ngcp8\ opcode -eq. 18) then 


call invalid_mscp$$k_op_erase ‘lun,expand) 


MF wr 


. . 
if else if (mscp$l ode .eq. 11) then 
H 5 call inval d mstps$k_op dtacp (Lun,expand) 
9 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


else if (mscp$l opcode eq. 19) then 
p 


= the 
call invalid_mscp$$k_op_flush (lun,expand) 


call invalid_mscp$$k_op_replc (lun,expand) 


else if (aecpSlopcode -eq. 32) then 
call invalid_mscp$$k_op_comp (lun,expand) 


else if (mscp$l_opcode .eq. 33) then 


call invalid_mscp$$k_op_read (lun, expand) 


else if (mscp$l_opcode .eq. 34) then 


| 
else if (mscp$l_opcode .eq. 20) then 
call invalid_mscp $k_op_write (lun, expand) 


PAAAAAATAVII? 


0 
0 
0 
0 
0 
0 
) 
0 
0 
0 
0 
0 
0 


else if (mscp$l_opcode .eq. 64) then 


GRISSSLESLLLIES 


call invalid_mstp$$k_op_avatn (Lun,expand) ‘se 
04 else if (mscp$l_opcode .eq. 65) then 060 
05 call invalid mstps$k_op, dupun (lun,expand) Ren 
09 else if (mscp$l_opcode .eq. 66) then 
4 call invalid_mscp$$k_op_acpth (lun,expand) 
+ else 
; call Linchk (lun,1) 
18 write(lun,5) 
15 Call DUMPREG (Lun,9,emb(38)) 
1g endif 
1 endif j 
f 
1 return 
20 end | 


] 
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PROGRAM SECTIONS 


| 
Name Bytes Attributes 
0 SCODE 1180 PIC CON REL LCL SHR EXE RD NOWRT LONG | 
1 SPDATA 1 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
é SLOCAL 60 PIC CON REL LCL NOSHR NOEXE RD WRT LONG | 
EMB 51 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 1773 
ENTRY POINTS 
Address Type Name 
0-00000000 MSCPS$B_OPCODE_DISPATCHER 
VARIABLES 
Address Type Name Address Type Name 
-00000000 I*4 EMBSL_HD_SID 3-00000004 I*2 EMBS$W_HD_ENTRY 
300000008 I*2 EMBSW_HD_ERRSEQ AP-0000000C@ L*1 EXPAND ~ 
AP-000000108 L*1  INVAL AP-00000004@ L*1 LUN 
AP-000000088 L*1 MSCP$B_OPCODE 2-00000000 I*4 MSCPSL_OPCODE 
ARRAYS | 
Address Type Name Bytes Dimensions 
-00000000 L*1 EMB 512 (0:511) 
-00000006 I*4 EMBS$Q_HD_TIME 8 (2) 
LABELS | 
Address’ Label 
1-00000010 5° | 
FUNCTIONS AND SUBROUTINES REFERENCED | 
Type Name Type Name Type Name 
UMPREG INVALID_MSCPS$$K_OP_ABORT INVALID_MSCPS$$K_OP_ACCES | 
INVALID_MSCP$$K_OP_ACPTH INVALID_MSCPS$K_OP_AVAIL INVALID_MSCPS$SK_OP_AVAIN 
INVALID_MSCPS$$K_OP_CMP INVALID_MSCPS$$K_OP_COMP INVALID_MSCPSS$K_OP_DTACP 
INVALID_MSCPS$$K_OP_DUPUN INVALID_MSCPS$K_OP_ERASE INVALID_MSCPS$$K_OP_FLUSH 
INVALID_MSCP$$K_OP_GTCMD INVALID_MSCPS$$K_OP_GTUNT INVALID_MSCPS$K_OP_ONLIN | 
INVALID_MSCPS$$K_OP_READ INVALID_MSCPS$K_OP_REPLC INVALID_MSCPS$K_OP_STCON 
INVALID_MSCPS$$K_OP_STUNT yl Th Ms aed OP_WRITE 1*4 L1OSextzy 
LINC MSCP$$K_OP_ABORT MSCPS$K_OP_ACCES 
MSCPS$K_OP_ACPTH MSCPSS$K_OP_AVAIL MSCPS$$K_OP_AVAIN | 
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byte 


integer*4 
integer*4 
integer*4 
integers4 
integer*4 
integer*4 
integers4 
integer*4 
integer*4 


write(lun, 
10 format(' 


S8S8S8ssssssss 
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write(lun, 
15 format(' 


UN “SO OCONAUSWN “OO DNOU SW —O0@ 


Sat 


Www 


write(lun, 
20 format(' 


S8S888S8sssss 


write(lun, 
25 format (' 


SoS S eee EESEre 


PAA 


write(lun, 
30 format(' 
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Subroutine RA6O_STATUS (lun,sdil,sdi2,sdi3) 


lun 


previous_cylinder 
previous_head 
current_cylinder 
current_head 
error_code 
compress4 


‘previous_cylinder = LibSextzv(8,16,sdi2) 
call Linchk (lun,1) 


10) "PREVIOUS CYLINDER, #',previous_cylinder 
-t40,a,i<compress4 (previous_cylinder)>,'.') 


previous_head = LibSextzv(24,8,sdi2) 
call Linchk (lun,1) 


15) "PREVIOUS HEAD, #',previous_head 
-t40,a,i<compress4 (previous_head)>,'.') 


current_cylinder = Lib$Sextzv(0,16,sdi3) 
call Linchk (lun,1) 


20) "CURRENT CYLINDER, #',current_cylinder 
-t40,a,i<compress4 (current_cylinder)>,'.') 


current_head = Lib$Sextzv(16,8,sdi3) 
call Linchk (lun,1) 


25) ‘CURRENT HEAD 
,t40,a, i<compressé (current_head)>,*.") 


error_code = Lib$Sextzv(24,8,sdi3) 
call Linchk (lun,1) 


30) “ERROR CODE ‘,error_code 
-t40,a,2z2.2,' (HEX) ") 


call Linchk (lun,1) 
if (error_code .eq. ‘O1'x) then 


#*,current_head 


od 9 
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call Linchk (lun,1) 
yrjtetiun, 35) "COMMAND CANNOT BE EXECUTED’, 
WITH D DRIVE i" ¢ ee STATE 
35 levacet *,t40,a,/,t40,a) 
else if (error_code .eq. '02'x) then 
call Linchk (lun,1) 


write(lun,35) "SEEK REQUESTED NON-EXISTENT’, 
1 HEAD OR CYLINDER’ 


else if (error_code .eq. ‘03'x) then 
| 


yrivetiyn, 60) bw A VALID OPCODE’ 
40 format(' *,t40,a 


else if (error_code .eq. ‘04'x) then 
call Linchk (lun,1) 


ee 35) “COVER NOT CLOSED’, 
1 N ‘'RUN'’ ISSUED' 


else if (error_code .eq. ‘05'x) then 
write(lun,40) "LID NOT LOCKED WHEN ‘‘RUN’' ISSUED* 
else if (error_code .eq. ‘06'x) then 
write(lun,40) "PROGRAM ERROR DURING HEAD LOAD' 
else if (error_code .eq. ‘08'x) then 
write(lun,40) "HEADS NOT HOME WHEN ‘’RUN’’ ISSUED’ 
else if (error_code .eq. ‘09'x) then 

call Linchk (lun,1) 


write(lun 35) "HEADS , HOME SWITCH OPEN’, 
1 DURING SPIN-UP' 


sesssees 


else if (error_code .eq. ‘Oa'x) then | 
call Linchk (lun,1) | 
| 


write(lun,35) "HEADS HOME SWITCH WOULD NOT CLOSE’, 
1 * = DURING UNLOAD’ 


else if (error_code .eq. ‘Ob'x) then 
call Linchk (lun,1) 
write(lun,35) "COVER OR LID LOCK OPENED’, 
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RAGO_STATUS 


1 * = DURING HEAD LOAD‘ 

else if (error_code .eq. '10'x) then — 
write(lun,40) "LID LOCK OPEN DURING SPIN-UP' 
else if (error_code .eq. ‘11'x) then 
write(lun,40) "COVER OPEN DURING SPIN-UP* 
else if (error_code .eq. '18'x) then 
write(lun,40) ‘SPIN-UP TIME TOO LONG’ 

else if (error_code .eq. '19'x) then 

call Linchk (lun,1) 


write(lun,35) "NO MOTOR SAMPLE CHANGE’, 
1 ' = DURING SPIN-UP* 


else if (error_code .eq. ‘20'x) then 
write(lun,40) ‘SPIN-UP TIME TOO SHORT’ 
else if (error_code .eq. ‘'28'x) then 
call Linchk (lun,1) 


write(lun,35) "TOO MANY BAD SERVO SAMPLES’, 
1" = DURING "'RTZ"" 


else if (error_code .eq. ‘'29'x) then 
call Linchk (lun,1) 


yrjcettun, 25) *TOO LONG TO AQUIRE GOOD SAMPLES’, 


- ON HEAD LOAD‘ 
else if (error_code .eq. ‘2a'x) then 
call Linchk (lun,1) 


write(lun,35) "HEAD LOAD SEEK DID NOT RETURN’, 
1 * = TO fRACK ZERO’ 


else if (error_code .eq. ‘2b'x) then 
call Linchk (lun,1) 


write(lun,35) "BAD SERVO SAMPLES WHEN BUMPING’, 
1 * = GUARD BAND ON HEAD LOAD’ 


else if (error_code .eq. ‘2c'x) then 
call Linchk (lun,1) 
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~~ 
wire 


yrjtetun. 75) "BAD SERVO SAMPLES DURING "'RTZ'", 
* = ON HEAD LOAD’ 


else if (error_code .eq. ‘2d'x) then 
write(lun,40) "BAD SAMPLES DURING LINEAR MODE‘ 
else if (error_code .eq. ‘2e'x) then 
write(lun,40) ‘OFF SPEED WHEN IN LINEAR STATE‘ 
else if (error_code .eq. ‘30'x) then 

call Linchk (lun,1) 

write(lun,35) ‘VELOCITY TOO HIGH DURING ‘'RTZ'", 
1 * = ON HEAD LOAD’ 
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else if (error_code .eq. '31'x) then 

call Linchk (lun,1) 

write(lun,35) "VELOCITY TOO LOW DURING ‘'RTZ'", 
1 * = ON HEAD LOAD‘ 


LESFAVLESELES. 


else if (error_code .eq. ‘32'x) then 


OOOCCCCOOCCOCOC OOOO O OOOO OOOO OOCOOOCOOOO 
PINION a 


44 write(lun,40) ‘BAD VELOCITY ON SEEK’ 

4 else if (error_code .eq. ‘'38'x) then 

08 call Linchk (lun,1) 
0205 write(lun, te Pt. LONG TO GET ON TRACK’, 
0907 1 * = IN LINEAR MODE’ 
0208 else if (error_code .eq. '40'x) then 


write(lun,40) "RETRY ON SEEK, BAD SERVO SAMPLES' 
else if (error_code .eq. '41'x) then 
call Linchk (lun,1) 


write(lun,35) "RETRY ON SEEK," 
1 * = BAD SERVO SAMPLES FAILED 


else if (error_code .eq. ‘'42'x) then | 
| 
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call Linchk (lun,1) 


write(lun,35) "RETRY ON SEEK,', 
1 * = BAD GUARD BAND FLAGS' 


else if (error_code .eq. '43'x) then 
call Linchk (lun,1) 
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wrjte(lun, 35) "RETRY ON SEEK,’ 
1 * = BAD GUARD BAND FLAGS FAILED’ 


else if (error_code .eq. '44'x) then 
write(lun,40) "RETRY ON SEEK, SEEK TIMEOUT’ 


else if (error_code .eq. '45'x) then 
call Linchk (lun,1) 


wrjte(lun, 35) ‘RETRY ON SEEK,', 
1 * = SEEK TIMEOUT FAILED‘ 


else if (error_code .eq. '48'x) then 
write(lun,40) "LOST SERVO SAMPLES’ 
else if (error_code .eq. '50'x) then 
call Linchk (Llun,1) 


wrjte(lun 35) "TOO LONG | FOR HEADS HOME SWITCH’, 
1 0 OPEN ON HEAD L 


else if (error_code .eq. ‘81'x) then 
| 
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write(lun,40) ‘INITS AND TESTS, CONTROL PANEL’ 
else if (error_code .eq. '82'x) then 
write(lun,40) "CHECKS, PROCESSOR REGISTERS‘ 
else if (error_code .eq. ‘83'x) then 
write(lun,40) ‘TESTS, RAM #0' 

else if (error_code .eq. '84'x) then 
write(lun,40) "TESTS, ROM #0' 

else if (error_code .eq. ‘'85'x) then 
write(lun,40) ‘TESTS, ROM #1' 

else if (error_code .eq. '86'x) then 
write(lun,40) "TESTS, ROM #2' 

else if (error_code .eq. ‘87'x) then 
write(lun,40) ‘VERIFY ROM VERSION NUMBERS‘ 
else if (error_code .eq. ‘88'x) then 
write(lun,40) "TESTS, ‘’SDI"’ CLEAR INTERFACE BIT’ 
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else if (error_code .eq. ‘89'x) then 

call Linchk (lun,1) 


wrjte(lun 35) ‘TESTS 
1 "Sof" tonThoL §tATUS REGISTER’ 


| 
else if (error_code .eq. ‘Ba'x) then 
call Linchk (lun,1) 
| 
| 
| 
| 
j 


yrjtetiun, 35) ‘TESTS 
= FRONT PANEL Hae SERIAL # ROM’ 


else if (error_code .eq. ‘8b‘'x) then 
write(lun,40) "INITS, ‘‘UART’ 

else if (error_code .eq. ‘8c'x) then 
write(lun,40) "TESTS, ERROR REGISTERS’ 
else if (error_code .eq. '8d'x) then 
write(lun,40) ‘TESTS, ‘8155°° TIMER’ 
else if (error_code .eq. ‘8e'x) then 
write(lun,40) ‘TESTS, SLAVE CONTROL PORT‘ 
else if (error_code .eq. ‘8f'x) then 
write(lun,40) ‘SLAVE DIAGNOSTICS’ 

else if (error_code .eq. '90'x) then 
call Linchk (Lun,2) 


write(lun,45) **'CMD'’ AVAILABLE OR’, 
: - sie nang! SET Ri, ISSUING’, 


45 Radel. * gee re wey t40,a) 
else if (error_code .eq. ‘91'x) then 
call Linchk (lun,1) 


write(Lun,35) "SLAVE COMMAND RECEIVED", 
1 * = TIMEOUT ON OPCODE' 


else if (error_code .eq. ‘92'x) then 
write(lun,40) "SLAVE ATTENTION TIMEOUT’ 
else if (error_code .eq. '93'x) then 
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write(lun,40) "SLAVE DONE TIMEOUT, ‘'TOSTP’’ 
else if (error_code .eq. '94'x) then 
call Linchk (lun,1) 


write(lun,35) "SLAVE DONE TIMEOUT,", 
1" = STATUS (IMS) 


else if (error_code .eq. ‘'95'x) then 
write(lun,40) "SLAVE DONE TIMEOUT’ 

else if (error_code .eq. '96'x) then 
write(lun,40) "SLAVE ATTENTION TIMEOUT’ 

else if (error_code .eq. ‘97'x) then 
write(lun,40) "SOLENOID RELEASE TIMEOUT‘ 
else if (error_code .eq. '98'x) then 
write(lun,40) "WATCHDOG TIMER, MASTER INSANE‘ 
else if (error_code .eq. '99'x) then 
write(lun,40) "WATCHDOG TIMER, SLAVE INSANE‘ 
else if (error_code .eq. ‘'9a'x) then 

call Linchk (lun,1) 


write(lun,35) "RUN SWITCH OR COVER INVALID’, 
1 * = AT SPIN-UP' 


else if (error_code .eq. ‘9b'x) then 
call Linchk (lun,1) 


write(lun,35) "SPINDLE NOT READY DURING’, 
1 * = RECALIBRATE COMMAND’ 


else if (error_code .eq. ‘'9c'x) then 
call Linchk (lun,1) 


ite(lun,35) ** ** TRANSFER ERROR’, 
Tete Rm Dc708 ae 


else if (error_code .eq. ‘9d'x) then 
call Linchk (lun,1) 


write(lun,35) "WRITE OR FORMAT WHILE", 
1 ' = WRITE PROTECTED 
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else if (error_code .eq. ‘9e'x) then 
write(lun,40) ‘FORMAT WHILE FORMAT DISABLED’ 
else if (error_code .eq. ‘'9f'x) then 

call Linchk (lun,1) 


write(lun,35) "TRANSFER COMMAND’, 
1 * = WHILE DRIVE ERROR’ 


else if (error_code .eq. ‘a0'x) then 
write(lun,40) "SECTOR READ/WRITE OVERRUN ERROR‘ 
else if (error_code .eq. ‘al'x) then 
write(lun,40) ‘TRANSFER COMMAND WHILE R/W ERROR‘ 
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| 
| 
| 
| 
else if (errror_code .eq. ‘a2‘'x) then | 
write(lun,40) ‘"SDI"' COMMAND CHECKSUM ERROR’ 
else if (error_code .eq. ‘a3'x) then 
writeGlun.40) "SDI" FRAME ERROR’ 
else if (error_code .eq. ‘a4'x) then | 
write(lun,40) ‘'’SDI*’ COMMAND PARITY ERROR’ | 
else if (error_code .eq. ‘a5'x) then 

write(lun,40) "''SDI'’ COMMAND OUT OF RANGE" | 
else if (error_code .eq. ‘a6'x) then | 
write(lun,40) ‘*’SDI*’ COMMAND LENGTH ERROR‘ 

else if (error_code .eq. ‘a7'x) then | 


RRRRRRRERRLRKKRERRRRRRRRRRRPRERERRESE 


44 write(lun,40) ‘*’SDI'' ERROR STATUS BYTE NON-ZERO‘ | 
“8 else if (error_code .eq. ‘a8'x) then | 
rb write(lun,40) "SLAVE DONE TIMEOUT, SEEK COMMAND‘ 

: else if (error_code .eq. ‘a9'x) then | 
$5 call Linchk (Llun,1) | 
51 write(lun,35) "SLAVE DONE TIMEOUT,', 

3 1 * = "RTZ* COMMAND" | 
3 else if (error_code .eq. ‘aa'x) then | 
56 call Linchk (lun,1) 


oe bet 8077138 POG5iSG BN blnGQASteR: feae etcamscp.ror:1 P28e 152. 


7 
55 wr jte (lun 35) "SLAVE RESPONSE ERROR," 
1 * = "RTL COMMAND 


else if (error_code .eq. ‘ab'x) then 
write(lun,40) "SLAVE DONE TIMEOUT, FIRST PASS‘ 


5 else if (error_code .eq. ‘ac'x) then 1 
e call Linchk (lun,2) 1. 
e yr jcetiyn 45) ‘COMMAND RECEIVED ta DURING’, 1 

0 STOP OR, ASCII PORT COMMAND, * 1 
a! 1 ‘- TIRE = ‘*TODGN2°" ‘f 
y else if (error_code .eq. ‘ad'x) then HF 
Le call Linchk (lun,2) / 
7 write(lun.45) "COMMAND RECEIVED TROUT DURING’, 
78 1 = STOP OR ASCII PORT COMMAND," , 


1° = TIME = 1MS' 

else if (error_code .eq. ‘ae'x) then 
write(lun,40) "DRIVE NOT ON-LINE’ 

else if (error_code .eq. ‘af'x) then 
write(lun,40) ‘COMMAND BYTES 4 AND 5 NON-ZERO’ 
else if (error_code .eq. ‘bO'x) then 
write(lun,40) ‘INVALID GROUP NUMBER’ 

else if (error_code .eq. ‘bi'x) then 
write(lun,40) "INVALID HEAD SELECT NUMBER’ 
else if (error_code .eq. ‘"b2'x) then 
write(lun,40) ‘INVALID CYLINDER RANGE’ 

else if (error_code .eq. ‘b3'x) then 
write(lun,40) ‘SPINDLE NOT READY’ 

else if (error_code .eq. ‘b4'x) then 
write(lun,40) "CONTROLLER TIMEOUT = 0° | 
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else if (error_code .eq. ‘b5'x) then 
write(lun,40) "SPINDLE NOT READY‘ 
else if (error_code .eq. "b6'x) then 
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write(lun,40) “ILLEGAL MEMORY REGION’ 
else if (error_code .eq. ‘b7'x) then | 
write(lun,40) °’DD’' BIT SET’ | 
else if (error_code .eq. "b8'x) then 
write(lun,40) "TRIED TO CLEAR HARD FAULT’ 
else if (error_code .eq. 'b9'x) then 
write(lun,40) "SLAVE DONE TIMEOUT, GET STATUS‘ 
else if (error_code .eq. ‘ba'x) then 
write(lun,40) "NON-ZERO LEVEL’ 
else if (error_code .eq. ‘bb’x) then 
write(lun,40) "WRONG SUB-UNIT ERROR‘ 
else if (error_code .eq. ‘bc'x) then 
call Linchk (lun,1) 
| 


wr jte(lun 35) DIAGNOSTIC COMMAND .', 
MEMORY REGION "'HI'’ NON-ZERO® 


else if (error_code .eq. ‘bd'x) then 
call Linchk (lun,1) 


write(lun.35) "DIAGNOSTIC COMMAND, ", 
1 * = INVALID PARAMETERS' 


else if (error_code .eq. ‘be'x) then 
call Linchk (lun,1) 
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write(lun, 35) “WRITE ENABLE’, 
1 ' = TO WRITE PROTECTED DRIVE’ 
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else if (error_code .eq. ‘bf'x) then 


2e0 


1 

1 « 

1 
$44 10: 
$61 write(lun,40) "SETTING ‘'S7*' = 1° He 
6 else if (error_code .eq. ‘cO'x) then O10 
368 - . 10; 
564 call linchk (lun,1) | 
565 1 
266 write(lun. 35) ‘SLAVE DONE we TIMGouT.° i 11( 
56 1 * = FROM GET STATUS COMMAN | Ay 
5 else if (error_code .eq. ‘cl'x) then 1 
$70 - . | Sti 


ye oneet aes | 
em "GASES ABBHEN3 SISDIMGERERSL. Eat Skcascr.ron:n "08" 1 


call Linchk (lun,1) 


wr jte(Lun,35) "ERROR RESPONSE,', | 
* = GET STATUS COMMAND’ 


else if (error_code .eq. ‘c2'x) then 
write(lun,40) ‘INVALID GROUP NUMBER‘ | 
else if (error_code .eq. 'c3'x) then 
write(lun,40) "MICROCODE FAULT ERROR’ | 
else if (error_code .eq. ‘c4'x) then 
write(lun,40) "NO WATCHDOG INTERRUPT’ | 
else if (error_code .eq. ‘c5'x) then 
call Linchk (lun,1) 
yrjtetiun 35) * SLAVE DONE TIMEOUT,', | 
- ASCI] PorT | 
else if (error_code .eq. ‘c6'x) then | 
call Linchk (lun,1) | 
write(lun,35) "SLAVE COMMAND ERROR,', 
1 * = ASCII PorT® 
endif | 
| 


return 
end 
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PROGRAM SECTIONS 
Name 


0 SCODE 
1 SPDATA 
2 SLOCAL 


Total Space Allocated 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


AP=0000000C@ 1*4 


LABELS 
Address Label 


1-00000BF9 10° 
1-00000C56 40° 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 
1*4 COMPRESS4 


Name 
RAGO_STATUS 


Name 
CURRENT CYLINDER 
ERROR_CODE 


L 
PREVIOUS_HEAD 
SDdi2 


Address 


1-00000C09 
1-00000C5D 


Type Name 


Label 


15° 
45° 


I*4 LIBSEXTZV 


Bytes 


fig 


10762 


ip-fe Sep-1 
=ep-1 


Bc 12:67:26 | DiSksumsmasten: eRe. 


Attributes 
PIC CON REL LCL EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Address Type Name 
Pe ssa 1*4 CURRENT_HEAD 
-00000014 R*4 ERRROR_CODE 
2-00000000 I*4 PREVIOOS_CYLINDER 
AP-000000088 I*4 SDI1 
AP-000000108 I*4 SDI3 
Address Label Address’ Label Address Label 


1-00000C19 20° 


Type Name 
LINCHK 


1-00000C29 25° 


1-00000C39 30° 


wan 


Page 155 
CIMSCP.FOR:1 


Address’ Label 


1-00000C4B 35° 


— | 
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ip-ge =1984 00:24: VAX=11_ FORTRAN V3.4-56 Page 156, MSL 

730071382 99:69:36 DISKSVMSMASTER: CERF. SRCIMSCP.FOR: 1 . 
1 | 011 
| By 
2 Subroutine RABO_STATUS (Llun,sdil,sdi2,sdi3) | oH 
01 
i 
f byte lun 4 
0009 integers sdil | 01 
10 integer*4 sdi | 01 
11 integer*4 sdi 01 
1 integers4 front_panel_fault_code gis 
} integer*4 compress4 4 
0015 WE 
Bpi8 front_panel_fault_code = Lib$Sextzv (24,8,sdi3) ae 
sid if (front panel_fault_code .eq. '14'x) then 13 
0020 write(tun,55) "R/W DIAGNOSTIC ERROR (SPIN-UP)' 013 
ee 1 55 formet(' *,t40,a) aE 
oo 5 else if (front_panel_fault_code .eq. ‘'16'x) then aE 
0035 write(lun,55) "SPINDLE MOTOR INTERLOCK’ aie 
0037 elise if (front_panel_fault_code .2q. '18'x) then ore 
5 94 write(lun,55) ‘SPIN-UP ERROR‘ aie 
0031 else if (front_panel_fault_code .eq. ‘Ic'x) then 014 
ott 014 
003 write(lun,55) "R/W UNSAFE’ 014 
0034 014 
te else if (front _panel_fault_code .eq. ‘le'x) then Bie 
it £4 write(lun,55) "SPINDLE MOTOR SPEED ERROR‘ | oie 
te4 else if (front_panel_fault_code .eq. '34'x) then aE 
sng write(lun,55) ‘HDA OR SERVO BOARD OVER-TEMP' aE 
Ooe§ else if (front_panel_fault_code .eq. '36'x) then HF 
boe8 write(lun,55) “INITIAL RECAL FAILURE‘ Hf 
004? else if (front_panel_fault_code .eq. '38'x) then | ie 
0949 write(lun,55) "DRIVE DISABLED BY ‘’DD"’ BIT’ Ole 
0081 else if (front_panel_fault_code .eq. ‘3a'x) then | Ole 
a wr feet len. 53? "SERVO DIAGNOSTIC ERROR (SPIN-UP)* a 

else 

55 1 
23 write(lun,60) "FRONT PANEL FAULT CODE, ‘, front_panel_fault_code, Ht 
005 1 * (HEX) 17 


ae 


RABO_STATUS 
R 60 format(’ *,t40,a,22.2,a) 
endif 
1 return 
end 


PROGRAM SECTIONS 
Name 
0 SCODE 
1 SPDATA 
2 SLOCAL 
Total Space Allocated 


ENTRY POINTS 
Address Type Name 


0-00000000 RABO_STATUS 
VARIABLES 
Address Type Name 


2-00000004 I*4 COMPRESS4 
AP-00000004@ L*1 LUN 
AP-0000000C@ I*4 SDI2 


LABELS 
Address Label Address Label 
1-000000F6 55° 1-000000FD 60° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
1*4 LIBSEXTZV 


Attributes 


> 10 
Moreen aee MO: 8Fi38  UESKSUMGRASTEN: FERF.SoCIMSCP.FOR:1 


EXE RD NOWRT LONG 
SHR NOEXE RD NOWRT LONG 
EXE RD WRT LONG 


Address Type Name 


2-00000000 


1*4 FRONT_PANEL_FAULT_CODE 
SDI1 


AP-00000008@ [*4 
AP-00000010@ I*4 SDI3 
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character*17 v2ra8x_interface_error_status(7:7) 


FANS 


1 Subroutine RABX_STATUS (Lun,sdil,sdi2,sdi3) 

5 byte lun 

0009 integer*4 sdil | 

10 integers4 sdi | 
0011 integers4 sdi 4 
pots integer*4 compress4 8 : 
epte logicale1 init diagnostic_failure 8 : 
B018 integers4 retry_count 024 
4 integere4 previous_command 024 
18 integer*4 cylinder 8 4 
0019 integers4 furrent. group 4 
8 9 integer*4 led_display_code 6 : 
O9 ¢ character*33 = vira8x_interface_error_status(3:5) Ose 
0024 data vira8x_interface_error_status(3) 095 
09 é 1 /*OVERRUN ERROR®'/ 8s2 
data vira8x_interface_error_status(4) 025 
$9 3 1-/*CONTROL R/T STATUS; PARITY ERROR®'7 8s? 
0030 data vira8x_interface_error_status(5) 025 
5 1 1 /*CONTROL PULSE ERROR®'/ gsé 
90 056 
00 026 


ww 
w 


data v2ra8x_interface_error_status(7) 
1 /"DATA PULSE ERROR*'7 


nm 


if (LibSextzv (20,1,sdil) .eq. 1) then 
init_diagnostic_failure = .true. 
else 


init_diagnostic_failure = .false. 
endif 


Seescretesuges 


NOUS WIN —OO0® 


retry_count = LibSextzv (0,8,sdi2) 

if (.not. init _diagnostic_failure) then 
if (retry_count .ne. 0) then 
previous_command = LibSextzv (8,8,sdi2) 


fo te le Je 1s 12 Je be DR EE ee ee) 
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if (previous_command .eq. ‘8Be'x) then 
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32 C« 


call Linchk (lun,1) 


1 write(lun,34) ‘RECALIBRATE' 
§ Bu format(’ '-t40,a) 
else if (previous_command .eq. ‘Oa'x) th 
se) previous_ q ¥ en 
call Linchk (lun,1) 
006 
0068 write(lun,34) ‘SEEK’ 
94 endif 
0 endif 
ita endif 
bors call output (lun,sdi2,vira8x_interface_error_status,3,3,5,'0') 
1 call output (lun,sdi2,v2ra8x_interface_error_status,7,7,7,'0') 
0077 f ¢ 
0078 -not. init _diagnostic_failure 
0079 and. 


1 

1 

1 retry count .ne. 0 

1 and. 

: (previous_command .eq. ‘8e'x 
or. 

1 prey tous_comnens eq. ‘Oa'x) 

1 then 


cylinder = LibSextzv (24,16,sai2) 
call Linchk (lun,1) 


write(lun,40) cylinder 
40 format(' *,t40,"CYLINDER #',i<compress4 (cylinder)>,'.") 


current_group = LibSextzv (8,8,sdi3) 
call Linchk (lun,1) 
write(lun.45) current_gr 


ou 
45 roraess: ,t40, *CURREN GROUP #*, i<compress4 (current_group)>,'.') 
en 


S3eeceareee 


wr 
Ladd AAA AAA AAAI AAAI AIA NIAAA AIA AIorororororenorrfreror 


assess 


101 

Dig led_display_code = Lib$Sextzv (16,8,sdi3) 

8 call linchk (lun,1) 
106 write(lun,50) led display code 

O08 50 format(' 7 e40, TED DISPLAY CODE, °,22.2,° (HEX)") 
109 return 

0110 end 
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PROGRAM SECTIONS 


Name Bytes Attributes 
° SCODE 515 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SPDATA 158 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 400 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 1073 
ENTRY POINTS 
Address Type Name 
0-00000000 RABX_STATUS 
VARIABLES 
Address Type Name Address Type Name 
-00000084 I*4 CURRENT_GROUP -09000080 I*4 CYLINDER 
-00000074 Ll INIT eOIKGNOSTIC FAILURE -C0000088 I*4 LED _DISPLAY_CODE 
AP-00000004@ L*1 L -f000007C I*4 PREVIOUS_COMMAND 
2-00000078 I*4 RETRY_COUNT AP-000000088 I*4 SDI1 
AP-0000000C@ I*4 SDI2 AP-00000010a8 I*4 SDI3 
ARRAYS 
Address ‘Type Name Bytes Dimensions 
we sis si4'4 4 CHAR V1IRA8X_INTERFACE_ERROR_STATUS 99 (3:5) 
00000063 CHAR V2RA8X~INTERFACE_ERROR_STATUS 17 (7:7) 
LABELS 
Address Label Address’ Label Address Label Address’ Label 
1=90000035 34° 1-0000003C 40° 1-00000057 45° 1-00000077 50° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name 
1*4 COMPRESS4 1*4 LIBSEXTZV LINCHK OUTPUT 
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| 
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Subroutine GENERIC_SDI (lun,sdil,sdi2,sdi3) 


Seeeeeesess 


byte Lun 
integer*4 sdil 
integere4 sdi 
integere4 sdi | 
1 integere4 compress4 
1 integer*4 c_flags 
0014 integers4 retry_count 
BorS charactertl9 vigeneric_sdi_status(0:1) | 
0018 data vigener{c¢.sdi_status(0) 
9019 1 /"RUN/STOP SWITCR IN®'/ 
0021 data vigeneric_sdi_status(1) | 
88 ¢ 1 /*PORT SWITCH IN®'/ 
88 : character*33 v2generic_sdi_status(3:15) | 
0026 data v2generic sdi status(3) | 
8 1 /'LOG INFORMATION IN EXTENDED AREA®'/ 
| 
94 data v2generic_sdi_status(4) 
4 ; 1 /"SPINDLE READY*"/ | 
0038 data v2generic_sdi_status(5) 
B087 1 /"DIAGNOSTIC LOAD REQUEST*'7 
0035 data v2generic_sdi_status(6) 
ite) 1 /*RE-ADJUSTMENT REQUESTED®'7 | 
ist data v2generic_sdi_status(7) 
903 1 /*DRIVE UNAVAILABLE, BUT ONCINE*'/ 
| 
0041 data v2generic_sdi_status(8) 
98) 1 /°576 BYTE SECTOR*'/ ~ ~ 
i data v2generic_sdi_status(9) 
e 1 /*DIAG. CYLINDER ACCESS ENABLED®**? 
7 data v2generic_sdi_status(10) | 
0048 1 / FORMATTING OPERATIONS” ENABLED#* 7 
$080 data v2generic_sdi_status(11) 
008 1 /*FAULT#®'/ 
36 data v2generic_sdi_status(12) 
0085 1 /*WRITE PROTECT, UNIT #0.*'7 
56 data v2generic_sdi_status(13) 
0057 1 /‘WRITE PROTECT. “UNIT aT.e'7 
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FPEPEPERRSTSREREERESRERERELELRERERERELEREREEEE 
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RERRLKK 


ed ifete 30071 5he P2:63:36 — MEEKbUmSGASTeN PERE cecomsce.ror:;1 Pa8e 162. 


yeoenerts sdi gitatus(t4) 
UNIT #2.* 


Zz 
y 
rm 


gate 
/"WRITE PROTEC 


gete yeaener its sdi gStetus(15) 
/‘WRITE PROTECT, UNIT #3.* 


character*34 v3generic_sdi_status(19:23) 


v3generic_sdi_status(19) 
WRITE LOCK ERR Re'/ 


v3generic_sdi_status(20) 
INITIALIZATION DIAGNOST TIC” FAILURE®'/ 


iy 

ta 

/‘ 

ta og ic_sdi_status(21) 
/*LEVEL 2 PROTOC L ERROR®*/7 
t 

/ 

t 

/ 


RRRRLLLLLLLELLEL 


oo 
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ata v3 ener ic _sdi_status (22) 
"TRANSMISSION ERROR®' 


v3generic_sdi_status(23) 
DRIVE ERROR*'/ 


call output (lun,sdil,vigeneric_sdi_status,0,0,1,'0') 
call output (lun,sdil,v2generic_sdi_status,3,3,15,'0") 
call output (lun,sdil,v3generic_sdi_status,19,19,23,'0") 
c.flags = LibSextzv(24,4,sdil) 

if (c flags .eq. 8) then 

call Linchk (lun,1) 


write(lun.15) **DIAGNOSTICS*" 
15 format(' *,t40,"DRIVE-OFFLINE, ‘,a) 


else if (c_flags .eq. 9) then 


0080 
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etd 
008 
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oe $4 
008? 
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100 05 
19) call Linchk (lun,1) 2 
198 write(lun,15) "DUPLICATE UNIT IDENT’ 5 
0104 endif 5 
105 5 
; do 25,i = 28,31 3 
198 if (LibSextzv(i,1,sdil) .eq. 1) then 82 
139 call Linchk (lun,1) b3 
ig yritetiyn, 20) “SEND ‘MSCP* AVAILABLE St SUB-UNIT #',28-i,'.' B2 
BF 20 Forgets tt40,a, i<compress4 ( i)> B 
en 
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25 cont inue 
retry_count = LibSextzv (0,8,sdi2) 
if (LibSextzv(20,1,sdil) .eq. 0) then 
if (retry count .ne. 0) then 
call Linchk (lun,1) 


write(lun,30) "RETRY COUNT ‘,retry_count 
30 format(’ '.t40,a, i<compressé (retry.count)>,".") 


—_ — 
bole flololololololololololololo) 
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et at et tt 8 a 2s = as 2 2 6 a 2 ts 


endif 
else ; 
write(lun,35) "FAILURE CODE ‘,retry_count,’ (HEX) 53 
35 format(’ *,t40,a,z22.2,a) 53; 
endif H 
return 53) 
en 53: 
5 
53) 
53) 
54( 


PROGRAM SECTIONS 


PARAAD 
SELES 


Name Bytes Attributes 
0 SCODE 505 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 204 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 54 
2 SLOCAL 1000 PIC CON REL LCL NOSHR NOEXE RD WRT LONG re 

Total Space Allocated 1709 rch 


ENTRY POINTS 
Address Type Name 


—_-_ 


0 
0 
0 


MAMMA 
PAMNDAAAIA 


0-00000000 GENERIC_SDI ( 

{ 

VARIABLES 6 

Address Type Name Address Type Name Address Type Name Address Type Name ° 

2-00000280 I*4 C_FLAGS Fan's 44h 443 I*4 | AP-00000004@ L*1 LUN 2-00000284 1*4 RETRY_COUNT 6 
AP-000000088 I*4 SBI1 AP-0000000C@ I*4 SDdI12 AP-000000108 I*4 SDI3 


AAA 


COOOOOCOOCOOoOoOoooo 


PAPA AAAAAMAVIV 


NOOO 


ARRAYS 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name 
1*4 COMPRESS4 1*4 LIBSEXTZV LINCHK OUTPUT 


GENERIC _SD1 if: sep 1984 92:53:36 BtebamGRAS PEN. Peae ehcamscp.ror:1 


Address Type Name Bytes Dimensions 
HAR V § NER of tATu ( ‘] 
CHAR Vv NER £238 TATUS 4 (3: 3) 
HAR V s “STATU 1 (19:23) 
LABELS 
Address Label Address Label Address Label Address Label Address Label 
1-00000088 15° 1-000000A3 20° * 25 1-00000081 30° 1-000000C1 35° 


Ss 
4] 
r 


| 


OxnN~N 
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pope lojlolelololelelololololeloejlelelelelelololelolelelolo) 
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Subroutine RA8B1_STATUS (Llun,sdil,sdi2,sdi3) 


byte Lun 

integer*4 sdil 

integer*4 sdi 

integers4 s 

integers4 front_panel_fault_code 
integer*4 compress4 


front _panel_fault_code = LibSextzv (24,8,sdi3) 
if (front_panel_fault_code .eq. '18'x) then 


yritetiyn, 53) eect ERROR’ 
format(' *,t40,a 


else if (front_panel_fault_code .eq. '14'x) then 
write(lun,55) ‘UPROC FAULT’ 

else if (front_panel_fault_code .eq. ‘ic'x) then 
write(lun,55) "SDI ERROR’ 

else if (front_panel_fault_code .eq. ‘'12'x) then 
write(lun,55) "MASTER/SLAVE ERROR‘ 

else if (front_panel_fault_code .eq. ‘la'x) then 
write(lun,55) "SERVO FINE POSITIONING ERROR’ 
else if (front_panel_fault_code .eq. '16'x) then 
write(lun,55) ‘SERVO COARSE POSITIONING ERROR‘ 
else if (front_panel_fault_code .eq. ‘le'x) then 
write(lun,55) "SPINDLE MOTOR INTERLOCK' 

else if (front _panel_fault_code .eq. '30'x) then 
write(lun,55) ‘HDA OR SERVO BOARD OVER-TEMP* 
else if (front_panel_fault_code .eq. '38'x) then 
write(lun,55) "R/W UNSAFE* 

else if (front_panel_fault_code .eq. '34'x) then 
write(lun,55) ‘R/W COMMAND ERROR‘ 
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else if (front_panel_fault_code .eq. ‘3c'x) then 

write(lun,55) "SERVO/HDA INTERLOCK’ 
else if (front_panel_fault_code .eq. ‘'32'x) then 
write(lun,55) "SERVO/MICRO INTERLOCK' 

else if (front_panel_fault_code .eq. ‘3a'x) then 
write(lun,55) "RW/MICRO INTERLOCK’ 

else if (front_panel_fault_code .eq. ‘'36'x) then 
write(lun,55) ‘CTL PAN/MICRO INTERLOCK’ 

else if (front _panel_fault_code .eq. ‘3e'x) then 
write(lun,55) *PER/MICRO INTERLOCK' 


else if (front_panel_fault_code .eq. ‘'11'x) then 

write(lun,55) ‘INDEX ERROR‘ 

else if (front_panel_fault_code .eq. '19'x) then 

write(lun,55) ‘WRITE AND BAD IMBEDDED' 

else if (front _panel_fault_code .eq. '15'x) then 
write(lun,55) "DRIVE DISABLED BY ‘DD’ BIT’ 

else if (front_panel_fault_code .eq. ‘Id'x) then 

write(lun,55) “WRITE AND WRITE PROTECT‘ 

else if (front _panel_fault_code .eq. '13'x) then 

write(lun,55) "SERVO DIAGNOSTICS FAILED’ | 
else if (front_panel_fault_code .eq. '1b'x) then | 
write(lun,55) "R/W DIAGNOSTICS FAILED’ | 
else if (front_panel_fault_code .eq. '17'x) then | 
write(lun,55) ‘IDLE LOOP DIAGNOSTICS FAILED’ 
else if (front_panel_fault_code .eq. ‘3f'x) then 
write(lun,55) ‘HARDCORE FAILURE’ 


else 
yr ite<tun,60) *FRONT PANEL FAULT CODE, °,front_panel_fault_code, 


60 format(' *,t40,a,22.2,a) 


Tn - + 
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Ng endif | 
11 return | 
118 end 
PROGRAM SECTIONS 
Name Bytes Attributes 
? SCODE 1 32 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SPDATA 1 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 24 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 1794 
ENTRY POINTS 
Address Type Name 
0-00000000 RA81_STATUS 
VARIABLES 
Address Type Name Address Type Name 
1*4 COMPRESS4 2-00000000 I*4 FRONT_PANEL_FAULT_CODE 
AP-000000048 L*1 LUN AP-00000008@ I*4 SD11 ~ = >i 
AP-0000000C@ I*4 SDI2 AP-000000108 1*4 SDI3 
Address Label Address Label 
1-000001F1 55° 1-000001F8 60° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
1*4 LIBSEXTZV 


LABELS 
| 
| 
| 
| 
| 
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Subroutine MSLGSK_SML_DSK_AZTEC (Lun) 


include ‘src$:msghdr.for /nolist' 


byte 
integer*4 


integers 
integer* 
integer* 


byte 
byte 


integer* 
integer* 
integer* 
integert2 


integer*4 


integer*2 
integer*2 
pesererss 
integer* 


byte 
byte 


integer*4 
integert4 
integer*4 
integer*4 


logical*1 


equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 


character*25 


lun 
ms\g$l_cmd_ref 
ms \g$w_event 
full_error_code 
front _pane 


L5b 
pl5b 


track_in_error 
servo state 
spindle_state 
distance_travelled 
last_header_read 


desired_track 
starting_track 
dst 


track_error_value 

sel 

sector 

compress4 

Liosextzv 

selected head 

base_uni 
drive_positioner_error 


(emb(38) ,mslg$l_cmd_ref) 
pomp ea) 8 i Pougevent) 
( eful 


emb (78) error_code) 

Cemb ( 9} . front panel b) 

(emb (81) ,pl5b) 
(emb(82),track_in_error,servo_state) 

(emb(84) ,spindle_State,distance_travelled) 
(emb (86), last_header_read,desired_track) 
(emb (88) ,starfting_track) 

(emb(90) ,dsts,track_error_value) 
(emb(92),sel) 

(emb(93), sector) 


viaztec_dsts(0:6) 


«SRCIMSCP.FOR; 1 
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a 


— 


ata la grec _dsts(0) 


v 
"DISABLE WRITE®*' 
a viaztec_dsts(1) 
CARTRIDGE OR DOOR NOT OKe'/ 


viaztec_dsts(2) 
OVER TEMPERATURE ® a st 


viaztec_dsts(3) 


t 
/ 
ta 
/' 
ata 
gy” 
ta 
/*HEADS HOME®'/ 
ta 
/' 
ta 
"he 
ta 
/* 


viaztec_dsts(4) 
SPINDLE STOPPED# a? Bee 


viaztec_dsts(5) 
SPEED ERROR*'/ 


viaztec_dsts(6) 
SERVO TIMEOUT#*/ 


AAI ANIA PPononononononun a 


WN“ OODNAULS WN —“OVDONO 


d 
1 
d 
1 
d 
1 
da 
1 
d 
1 
d 
1 
da 
1 
character*27 v2aztec_dsts(15:15) 
dat v2aztec_dsts(15) 

1 3 FRONT PANEL SERIAL BATA IN®'/ 
character*31 viaztec_sel(0:4) 


viaztec_sel(0) 
PEAK DETECTED READ THRESHOLDS®*/ 


a at a SS SS Ss SS Ss SS Ln Ss 2s Ss 2 Ss sn 
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a viaztec sel(1) 
EARLY=LATE INTEGRAL S®*/ 
a 


| 
viaztec_sel(2) 
TACH. VELOCI 


1 ay? 

data 

we 

data 

1 /*DAC MODE*'/ 
data 

Wu 

data 

ve 


a 
ACTUATOR CUR 

character*21 v2aztec_sel(7:7) 

dat v2aztec_sel(7) 

1 START A/D CONVERSIORN®'/ 

character*6 vifront_panel (0:0) 


data vifront_panel (0) 
1 /*FAULT#"/ 
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character*26 v2front_panel (8:10) 
dat 


Oooo 
— 2» _» 
i | 
NOU ww 


a v2front panel (8) 
"WRITE PROTECT, FIXEB®'/ 


/ | 
ta v2front panes 73 | 
/*WRITE PROTECT, REMOVEABLE®'/ 

t 
/ 


1 
d 
1 
ge a v2front_panel (10) 


if ¢ 

1 LibSextzv(0,5,mslg$w_event) .eq. 11 
.and. 

1 LibSextzv(5,11,mslg$w_event) .eq. 3 

1) then 


oa ed ss a —) ss os ss 8 


drive_positioner_error = .true. 
endif 


call Linchk (lun,2) 


write(lun,15) Mes ERROR CODE’, full_error_code 
15 format(’ °,t8,a,t28,24.4) 


if (LibSextzv(0,5,full_error_code) .eq. '13'o) then 
minor_code = LibSextzv(5,11,full_error_code) 


MMMM 323 


Mronrr 


if (minor_code .eq. '10'o) then 
write(lun,35) ‘SEEK INTO GUARDBAND' 
else if (minor_code .eq. ‘'20'o) then 
write(lun,35) ‘NEGATIVE TRACK DIFFERENCE‘ 
else if (minor_code .eq. '30'o) then 
write(lun,35) ‘DISTANCE TRAVELLED’ 
else if (minor_code .eq. ‘'40'o) then 
write(lun,35) "NOT ONE TRACK AWAY’ 
else if (minor_code .eq. '50'o) then 
write(lun,35) ‘NOT ZERO TRACKS AWAY’ 
else if (minor_code .eq. ‘'60'o) then 
write(lun,35) "DRIVE OFF TRACK" 

| 
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drive_positioner_error = .false. 
| 
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PROPPIPIPIPIPYPOPOPIPOPUNRIMINPININPIPINININY 


11 | 
wage om NCRESHOEA GHD MBAR HES dee 


write(lun,35) ‘DSTS DISABLE WRITE ERROR‘ 
else if (minor_code .eq. ‘'21'o) then 
write(lun,35) "DSTS ANL SERVO TIMEOUT’ 
else if (minor_code .eq. ‘'31'o) then 
write(lun,35) *D PROCESSOR SSR TIMEOUT’ 
else if (minor_code .eq. ‘'41'o) then 
write(lun,35) *D PROCESSOR FOUND SSE‘ 
else if (minor_code .eq. ‘51'o) then 
write(lun,35) "D PROCESSOR INDEX TIMEOUT’ | 
else if (minor code .eq. ‘61'o) then 
write(lun,35) "SERDES PARALLEL READY TIMEOUT‘ 


Mronrrn 


-Sep-1 RF .SRCIMSCP.FOR; 1 | 
1 else if (minor_code .eq. '70'o) then | 
‘ write(lun,35) "SERVO SAMPLE PARITY ERROR’ | 
5 else if (minor_code .eq. '100'o) then 
f write(lun,35) "HEAD SWITCH DEAD BAND’ | 
4 else if (minor_code .eq. '120'o) then 
$) write(lun,35) "SERVO SAMPLE ERROR’ | 
<8 else if (minor_code .eq. '130'o) then 
8 $ write(lun,35) ‘A/D CONVERSION ERROR’ 
8 ¢f else if (minor_code .eq. '140'o) then 
0950 write(lun,35) ‘HEAD SWITCH SSR TIMEOUT‘ 
° 3] else if (minor_code .eq. '150'o) then 
0958 write(lun,35) "HEAD SWITCH SSE ERROR‘ 
58 else if (minor_code .eq. '160'o) then 
3 2 write(lun,35) ‘HEAD SWITCH L5B ERROR’ 
0959 else if (minor_code .eq. ‘'170'o) then | 
356] write(lun,35) ‘ANL OR SCB.KT SERVO TIMEOUT’ | 
0568 else if (minor_code .eq. ‘11'c) then 
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else if (minor_code .cy. '71'o) then 
write(lun,35) "RESIDUE READY TIMEOUT’ 
else if (minor_code .eq. '101'o) then 


write(lun,35) "HEADER WORD RATE CLOCK TIMEOUT‘ 
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else if (minor_code .eq. '111'o) then 
write(lun,35) "DATA WORD RATE CLOCK TIMEOUT’ 
else if (minor_code .eq. '121'o) then 
write(lun,35) ‘REPLACE FOUND POSITIONER ERROR’ 
else if (minor_code .eq. ‘'131'o) then 
write(lun,35) ‘ATTEMPT TO REVECTOR NON-LBN' 
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44 else if (minor_code .eq. '141'o) then 

44 write(lun,35) "RCT SEEK, READ OR EDC FAILED’ 
\} else if (minor_code .eq. ‘'151'o) then 

i write(lun,35) "RBN NOT FOUND IN RCT‘ 

aH 

31 write(lun,35) "SEEK TO RBN FAILED" 

319 else if (minor_code .eq. '171'o) then 

$5) write(lun,35) ‘SEEK BACK TO ORIGONAL FAILED‘ 
& else if (minor_code .eq. '231'o) then 

335 write(lun,35) "DRIVE ACLO ASSERTED‘ 

327 else if (minor_code .eq. '241'o) then 

355 write(lun,35) "DRIVE OVER TEMPERATURE’ 


else if (minor_code .eq. '251'o) then 
write(lun,35) ‘DUPLICATE UNIT DETECTED’ 

else if (minor_code .eq. '261'o) then 
write(lun,35) ‘FRONT PANEL LOOPBACK FAILED’ 
else if (minor_code .eq. ‘271'o) then 
write(lun,35) ‘WRONG STOPPED STATE (DS.STP)' 
else if (minor_code .eq. '301'o) then 
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else if (minor_code .eq. ‘'161'o) then 
| 
| 
} 
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write(lun,35) ‘SPIN DOWN TIMEOUT (DS.STP)' 
else if (minor_code .eq. ‘311'o) then 
write(lun,35) "WRONG SPEED STATE (DS.STE)' 
else if (minor_code .eq. '321'o) then 
write(lun,35) "SPIN UP TIMEOUT (DS.STE)' 

else if (minor_code .eq. ‘'331'o) then 
write(lun,35) "HEADS NOT OVER DISK (DS.HDH)' 
else if (minor_code .eq. ‘'341'o) then 
write(lun,35) "HEADS HOME TIMEOUT (DS.HDH)' 
else if (minor_code .eq. '351'o) then 
write(lun,35) "HEADS HOME NEVER WENT AWAY‘ 
else if (minor_code .eq. '361'o) then 
write(lun,35) ‘UNSAFE ATTEMPT TO UNLOCK DOOR’ 
else if (minor_code .eq. '371'o) then 
write(lun,35) "CARTRIDGE OR DOOR ERROR (DS.COD)' 
else if (minor_code .eq. ‘'401'o) then 
write(lun,35) "ARCS SEEK HARD ERROR’ 

else if (minor_code .eq. '411'o) then 
write(lun,35) ‘ARCS SECTOR HARD ERROR’ 

else if (minor_code .eq. '421'o) then 
write(lun,35) "ARCS DETENT HARD ERROR’ 

else if (minor_code .eq. '431'o) then 
write(lun,35) ‘SERVO ERROR RATE TOO HIGH’ 
else if (minor_code .eq. '441'o) then 
write(lun,35) ‘SPINDLE MACH. FAILED TO INIT SERVO’ 
else if (minor_code .eq. ‘'501'o) then 
write(lun,35) ‘TPD DIAGNOSTICS FAILED’ 

else if (minor_code .eq. ‘511'o) then 
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write(lun,35) ‘TPD DATA BUS CHECK FAILED’ 

else if (minor_code .eq. '521'o) then 

write(lun,35) ‘A/D OFFSET/TIMING FAILED’ 

else if (minor_code .eq. ‘'531'o) then 

write(lun,35) ‘D/A OFFSET/TIMING FAILED’ 

else if (minor_code .eq. '541'o) then 

write(lun,35) ‘A/D = D/A LINEARITY FAILED’ 

else if (minor_code .eq. ‘551'o) then 

write(lun,35) ‘INTEGRATOR OFFSET FAILED’ 
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| 
else if (minor_code .eq. '561'o) then | 
write(lun,35) "DRIVE CARD FAILED INIT TEST’ | 
else if (minor_code .eq. '571'o) then 
write(lun,35) "DRIVE CABLE NOT IN PLACE' 
else 
write(lun,17) "ERROR CODE #' ,minor_code 
17 format(' ',t40,a,05.5,' (OCTAL)") 
| 
| 
| 
| 


endif 
endif 


other than drive, positioner error 


if (.not. drive _positioner_error) then 
call Linchk (lun,1) 
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43 write(lun,20) ‘FRONT PANEL’, front_panel 

ri} 20 format(® *,t8,a,t28,24.4) 

rf call output (lun, front_panel,vifront_panel,0,0,0,'1') 

+8 base_unit = LibSextzv(1,7,front_panel) * 2 

rt call Linchk (lun,1) 

50 write(lun,22) "BASE UNIT #* ,base_unit ; 

3) 22 format(' ,t40,a, i<compressé (base_unit)>,'.") 

38 call output (lun, front_panel,v2front_panel,8,8,10,'1") 

2? call Linchk (lun,2) 
35 write(lun,25) ‘TRACK IN ERROR',track_in_error, 
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* TRACK . res 2vi0, 1G. track_in_error),'. AT ERROR' 
a. t(' -8,te 
1 t4 oF tclantotest Ft heeceevt0, 16,track_in_error))>,a) 
call Linchk (lun,2) 


write(lun 120) Mle BE STATE’ ,spindle_state 
format? 1 t8,a,t28 


if (spindle_state .eq. 0) then 


write(lun,35) *ONLINE* 
format ( t40,a) 


else if (spindle_state .eq. 2) then 
write(lun,35) ‘1/0 RUNDOWN’ 
else if (spindle_state .eq. 3) then 


write(lun,35) "BEGIN UNLOAD’ 
else if (spindle_state .eq. 4) then 


write(lun,35) ‘HEADS HOME WAIT’ 

else if (spindle_state .eq. 5) then 

write(lun,35) ‘END UNLOAD’ 

else if (spindle_state .eq. 6) then 

write(lun,35) "SPIN DOWN WAIT’ 

else if (spindle_state .eq. 7) then 

write(lun,35) ‘STOPPED’ 

else if (spindle_state .eq. 8) then 

write(lun,35) ‘CHECK DOOR‘ 

else if (spindle_state .eq. 9) then 

write(lun,35) ‘SPIN UP WAIT’ 

else if (spindle_state .eq. 10) then 
write(lun,35) ‘PURGE WAIT’ 

else if (spindle_state .eq. 11) then 
write(lun,35) ‘BEGIN LOAD’ 

else if (spindle_state .eq. 12) then 
write(lun,35) ‘LOAD WAIT’ 
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45 


50 


52 


55 


11 
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else if (spindle_state .eq. 13) then 

write(lun,35) ‘INIT SERVO’ 

else if (spindle_state .eq. 14) then 

write(lun,35) ‘OFFLINE’ 

else if (spindle state .eq. 15) then 


write(lun,35) ‘INITIAL SPIN-UP' 
else 


write(lun,40) Libsextzv(0 16, spindle_state) 
format(’ ',t40 TERROR C oF . 

1 i<compress4 (LibSextzv(0,i6.spindle_state))>,’.") 
endif 

call Linchk (lun,1) 


write(lun.45) "HEADER/LBN',last_header_read 
format(' *,t8,a,t24,28.8) 


last_header_read = LibSextzv(0,27,last_header_read) 
if (msig$l_cmd_ref .ne. 0) then 

call Linchk (lun,1) 

write(lun,50) last header read 

format(” -t40,"LOGICAL BLOCK #',i<compress4 (Last_header_read)>,'.') 
else 

call Linchk (lun,1) 

if (LibSextzv(27,1,last_header_read) .eq. 1) then 
write(lun,52) "FIXED MEDIA’ 

format(* *,t40,a) 

else 


write(lun,52) "REMOVEABLE MEDIA‘ 

endif 

call disk header (lun, last_header_read) 
endif 


call Linchk (lun,1) 


write(lun,55) "DSTS',dsts 
format(’ *,t8,a,t28,24.4) 


call output (lun,dsts,vlaztec_dsts,0,0,6,'0") 
colt output (lun,dsts,v2aztec_dsts,15,15,15,'0") 
else 
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drive, positioner error 


call Linchk (lun,2) 
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7 write(lun,60) ‘L5B',(5b,"PL5SB’,pl5b 
re format?" t8.a 280782 2./, 4 
1 t8,a,t30.2z2.2) 
§ call Linchk (lun,2) 
write(lun,.65) "SERVO STATE’,servo_state 
5 65 format(’ *,t8,a,t28,24.4) 


if (servo_state .eq. 0) then 


| 

| 

| 

write(lun,70) "FAST SEEK’ 
70 format(' °,t40,a,:i<compress4 (LibSextzv(0,16,servo_state))>,:a) 
| 

| 

| 

} 


89 

90 

91 

4 else if (servo_state .eq. 1) then 
Be write(lun,70) ‘MEDIUM SEEK‘ 

38 else if (servo_state .eq. 2) then 
S write(lun,70) ‘SLOW SEEK’ 

else if (servo_state .eq. 3) THEN 
write(lun,70) "ONE TRACK AWAY’ 
else if (servo_state .eq. 4) then 
write(lun,70) "ZERO TRACKS AWAY‘ 
else if (servo_state .eq. 5) then 
write(lun,70) ‘DETENT* 

else if (servo_state .eq. 6) then 
write(lun,70) ‘RTZ IN PROGRESS‘ 
else if (servo_state .eq. 7) then 
write(lun,70) ‘ERROR STATE* 

else if (servo_state .eq. 8) then 
ur itettun, 70) "FAKE SAMPLES (HEAD LOAD/UNLOAD' 
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write (lun.7) "STATE #', LibSextzv(0,16,servo_state),’.' 
en 
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call Linchk (lun,2) 
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vr itectun.75) "DISTANCE TRAVELLED’, 

: (t pee gteyi. 16,distance_ travelled), iz 1,2), 

form tte i e8 8.128 z4 

1 t40,i<compress4 ([ sbectivte. 16,distance_travelled))>,a) 


call Linchk (lun,2) 
yriye<tun.§ 0) "DESIRED TRACK’ ,desired_ track, 
1 "TRACK ews evi, 16. desired utrack),'. 
form ak § -a,t at 
1 té tC" 2 t8.8, 828 tisezceevto, 16,desired_track))>,a) 
call Linchk (lun,2) 
wrigettun 82) "STARTING TRACK',starting_ track, 
1 "TRACK i, aes we be 16,starting_track),’. 
format: ‘it -a,t 
1 t40,a,i<compress4 “(Libgextzv(0,16,starting_track))>,a) 
call Linchk (lun,1) 
write(lun,84) * TRACK ws VALUE’, track_error_value 
format(’ *,t8,a,t28,24.4 
endif 
call Linchk (lun,1) 


write(lun, 85) he 3 ™ -sel 
format(' ',t8,a,t30.22.2) 


call output (lun,sel,vlaztec_sel,0,0,4,°1") 
selected_head = LibSextzv(5,2,sel) 

call Linchk (Llun,1) 

if (selected_head .eq. 0) then 


write(lun.90) selected, head, *(REMOVEABLE, TOP)' 
format(' ',t40,"HEAD #” .i<compress4 (selected _head)>,*. ',a) 


else if (selected_head .eq. 1) then 

write(lun,90) selected_head,' (REMOVEABLE, BOTTOM) * 
else if (selected_head .eq. 2) then 

write(lun,90) selected_head,' (FIXED, TOP)' 

else if (selected_head .eq. 3) then 


write(lun,90) selected_head,*(FIXED, BOTTOM)’ 
endif 


call output (lun,sel,v2aztec_sel,7,7,7,'1") 
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call Linchk (lun,2) 


9 write(lun,95) "SECTOR IN ERROR',sector 

9095 format(’ ',t8,a,t80,22-2) 

, if (sector .ne. *255'o) then 

94 write(lun,100) LibSextzv(0,8,sector) 

95 100 format ( -t40, SECTOR #' i<compress4 (LibSextzv(0,8,sector))>,'.") 
+] endif 
9 
M4 return 

end 


Name Bytes Attributes 
0 SCODE 5763 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA siey PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
§ SLOCAL 2 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
—MB 1 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 10661 


ENTRY POINTS 
Address Type Name 
0-00000000 MSLGSK_SML_DSK_AZTEC 


VARIABLES 
Address Type Name Address Type Name 


1*4 BASE_UNIT DESIRED_TRACK 
1*2 DISTANCE_TRAVELLED DRIVE_POSITIONER_ERROR 
I*2 DSTS MBSL_HD_SID 

Ie2 EMBSW_HD ENTRY EMBS$W-HD-ERRSEQ 
is¢ FRONT _PAREL FULL ERROR_CODE 
1*4 LAST_HEADER_READ LUN 

1*4 MINOR CODE RS GSL_CMO_REF 
Ise MSLGSO_EVENT PL5B 

Lel SECTOR L 

1*4 SELECTED HEAD VO_STATE 

<5 SPINDLE STATE TNG_TRACK 
1*2 TRACK_ERROR_VALUE _INTERROR 
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ARRAYS 
Address Type Name 


oe EMB 
*4 EMBSO HD TIME 
CHAR VIATTES BStS 
HAR VIAZTEC_SEL 
CHAR VIFRONT_ PANEL 
CHAR V Ag teeoeel 
CHAR V2AZTEC_SEL 
CHAR V2FRONT_ PANEL 
LABELS 
Address Label Address 
1-000007A1 43 1-000007A 
1 3 


a 
wa oe 
® ‘ 
Ba: 
FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 
1*4 COMPRESS4 


1-00000 


Type Name 


Byte 


Label 


DISK_HEADER 


Dimensions 


Address 
00007¢1 
ae 
38 0 
00008F0 


Type Name 


Label 


ae 
70° 
90° 


1*4 LIBSEXTZV 


TS 


1 
Sep-19 0:24:1 
et 7 99: 7:2 


Address 


0 ste g , 
0000830 ; 
000894 75° 
000909 


Label 


oooo 


Type Name 
LINCHK 


VAX-11 FORTRAN 


3.4-56 
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Address 

000007DD 
000850 
Bepeae 


1 
1 
1 
1 00915 


Type Name 
OUTPUT 


Label 


Address 


1-000007F4 
1-00000857 
1-000008C¢1 
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0° 

5° 
82° 
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Subroutine MSLGSK_BUS_ADDR_AZTEC (Lun) 


include ‘'src$:msghdr.for /nolist' 


8 byte Lun 
0069 
70 integer* full_error_code 
71 integer* start_word_count 
ue integer* base_ram_address 
Bore integer* acs 
75 equivalence (emb (66), full_error_code) 
8 equivalence (emb (68) ,start_word_count) 
7 equivalence (emb(70) ,base_ram_address) 
Boe equivalence (emb(72),lesid 
0080 character*34 viacs(3:7) 
0081 
008 data viacs(3) 
4 fy 1 /*HOST HAS READ POLL REGISTER*'/ 
0085 data viacs(4) 
Sone 1 /*PURGE COMPLETE*'/ 
0088 data viacs(5) 
i494 1 /*HOST BUS DATA PARITY ERROR*'/ 
0091 data viacs(6) 
iad) 1 /*CABLE PARITY ERROR ON WRITE*'/ 
0094 data viacs(7) 
0095 1 /*LAST TRANSFER NON-EXISTENT MEMORY®*'/ 
0097 integer*4 start_byte_count 
0098 integer*4 host_bus_type 
0099 integer*4 compress 
integer*4 LibSextzv 


call Linchk (Lun,1) 


write(lun.15) Ub ERROR CODE’, full_error_code 
15 format(’ °,t8,a,t28,24.4) 


call aztec_full_error_codel (lun, full_error_code) 


SSLESFENLS 


start_byte_count = start_word_count * 2 
call Linchk (lun.2) 


write(lun,20) ‘START BYTE COUNT',start_word_count, 
1 start_byte_count,'. BYTES’ 
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— 


20 forest. *,t8,a,t28,24.4,/ 
1 14 i<compress4 (start “byte. count)>,a) 


§ call Linchk (lun,2) 

° write lun 12>) ease Re we RgOnESS"s (base_ram_address,i = 1,2),° (OCTAL)' 
¢ 25 format’ ptB eae! 24.4,/, 

: 1 t40,06.6,a) 

? call Linchk (lun,1) 
7 

8 

9 

0 

5 


write(lun, 30) ACS acs 
30 format(' ',t8,a,24.4 


host_bus_type = Lib$Sextzv(0,3,acs) 
call Linchk (lun,1) 

if (host_bus_type .eq. 1) then 
write(lun.35) "UNIBUS* 
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cc ct ee ce el ce el cel elt cee cel cel cel cel cll cel cel cel eld cele ld eld 


i 35 format(’ °,t40,"HOST BUS IS A ',a,:i<compress4 (host_bus_type)>,:a) 
4 else if (host _bus_type .eq. 2) then 
41 write(lun,35) ‘Q-BuUS' 
ce a 
44 write(lun,35) ‘TYPE #',host_bus_type,'. 
rh endif 
rt 4 call output (lun,acs,viacs,3,3,7,'0") 
49 return 
50 end 
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PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 66 PIC CON REL LCL SHR EXE a NOWRT LONG 
1 SPDATA 1 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 238 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB 1 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 1627 
ENTRY POINTS 
Address Type Name 
0-00000000 MSLGSK_BUS_ADDR_AZTEC 
VARIABLES 
Address Type Name Address Type Name 
=O00000AA I*2 ACS -00000046 I*2 BASE _RAM_ADDRESS 
-00000000 I*4 E _HD_ -00000004 I* oe EMBSQ_HD ENTRY 
-QOO0000E I*2 EMBS$W_HD_ERRSEQ -00000042 I*2 FULL "ERROR. CODE 
-000000B0 I*4 HOST_BuS- 2-000000B4 I*4 | 
“000000468 I*4 LESI AP-00000004@ L*1 LUN 
2-O00000AC I*4 START_BYTE_COUNT 3-00000044 I*2 START_WORD_COUNT 
ARRAYS 
Address Type Name Bytes Dimensions 
5 poononne L*1 EMB 512 (0:511) 
-00000006 I*4 EMBS$Q_HD_TIME 8 (2) 
2-00000000 CHAR V1ACS™ 170 (3:7) 
LABELS 
Address Label Address’ Label Address’ Label Address’ Label Address’ Label 
1-00000066 15° 1-00000072 20° 1-00000088 25° 1-0000009B 30° 1-000000A5 35° 


FUNCTIONS AND SUBROUTINES REFERENCED 

Type Name Type Name Type Name 
AZTEC _FULL_ERROR_CODE1 COMPRESS4 I*4 LIBSEXTZV 
LINCHR OUTPUT 


— cc an , 


12 | 
ig-Se “1984 00:24:12 VAX=11_FORTRAN y3.4-56 Page 184 * 
Sep-1984 14:67:20 DISKSVMSMASTER:LERF.SRcaMscP.FoR:1 “29° "8 


Subroutine STATUS_AND_EVENT_CODES (Lun) 
Include ‘SRC$:MSGHDR.FOR /nolist’ 


= 


Byte lun 

Integer*2 str_len 

Integer*4 value_1, compress4, code, sub_code 
Character* Msg_part! 

Enerecteres3 Nsom part2 


Sess 


Vw 


c 
: Decode the status and event codes. 
Call STATUS_AND_EVENT_DECODE (msg_part1,msg_part2,value_1) 


C 
3 Determine whether it was decoded and output the text. 


007 
007 
0078 
0079 
0080 
0081 
008. 
008 
00 
0085 


84 
Call LINCHK (Llun,2) 
0086 
9087 Str_len = LIBSEXTZV (0,16,msg_part1) 
0089 If (str len Ms 1) then | 
0090 write” (Lun,13) msg_part1 
0091 15 Format (' *,140,A<Str_len>) 
a4 
009 Else 
0094 C Not doceded due to unknown code, extract the status/event code 
0095 ; and output the it in decimal. 
0097 Code = LIBSEXTZV(0,5,emb(48) ) 
0099 Write (lun 4:29) "UNKNOWN CODE #', code 
20 Format (' 140,A,22. 2.'()") 


Endif 


C 

: Determine whether it was decoded and output the text. 
Strlen = LIBSEXTZV (0,16,msg_part2) 
Call LINCHK (lun,1) 


1" (strlen .NE. 1) 


: (value. 1 .NE. -1) 
1) 


oe Ah a oa a a — 4 ot 


ARANASSRISAR UNS 


F 12 | 
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Write (Lun, 17) valu 


e.1, msg_part2 
Format ( 160.1 <COMPRESS& <value. 1)>,A<str_len>) 


——— _» 


NOVEM "OOOO 


—« 
~ 


$83338S338 


alue_1 .£Q. -1) 


Write (lun,15) msg_part2 


SS SS ee 


1 4 output the it in decimal. 
Else if (str_len .£Q. 1) then 


- 


5 Sub_code = LIBSEXTZV(5,11,emb(48)) 


Write (lun 22) "UNKNOWN SUBCODE #', sub_code 
25 Format (' ',140,A17,24. 4,°(0") 


SSSSSS8SSSSSSsss 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
; C Not decoded due to unknown subcode, extract the status/event subcode and 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


pefejoleleleolelolelololelo! 


9 
40 
41 
tg 
4 return 
44 
45 


end 


00, 
00; 
00, 
00; 
00: 
003 
003 
003 
003 
003 
003 
003 
003 
00: 
004 
004 
004 
004 
a 
00 
004 


endit 
| 
| 


———__.eEeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeaaeae——aaaeaaLLLaLaSaaS... aaa — crc 


1 
| 
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PROGRAM SECTIONS | 


STATUS_AND_EVENT_CODES 


Name Bytes Attributes 
° SCODE 373 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SPDATA 116 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
é SLOCAL 18 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB 1 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 1217 | 
ENTRY POINTS | 
Address Type Name 
0-00000000 STATUS_AND_EVENT_CODES | 
VARIABLES 
Address Type Name Address Type Name | 
ae sisted 1*4 a -00000000 I*4 EMBSL_HD_SID 
Ie EMBSW_HD_ENTRY - 9000008 1*2 EMB$W-HD-ERRSEQ | 
AP att LUN -000 006 CHAR MSG_PARTT 
3 19” CHAR MSG_PART2 - 90 A I*2  STR7LEN 
4 I*4 SUB_CODE - O3C [4 VALE, 1 | 
ARRAYS | 
Address Type Name Bytes Dimensions | 
$-H9008000 L*l EMB te 19:511) 
I*4 €MBSQ_HD_TIME (2) | 
LABELS 
Address Label Address Label Address Label Address’ Label 
1-00000037 15° 1-00000052 17° 1-00000043 20° 1-00000064 25° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 


1*4 COMPRESS4 1*4 LIBSEXTZV LINCHK | 
STATUS_AND_EVENT_DECODE | 


STATUS_AND_EVENT_CODES 19: §-Se0-1964 99: 83: \f AX=11_ FORTRAN Page _ 


b- 
ep- ISKSVMSMAS ON Yeas ekcamscp.roR:1 
COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:MSCP/OBJ=0BJ$:MSCP MSRCS$:MSCP 


iStock K=(NOBOUNDS oy RF arn NOUNDERF LOW) 

(DE UG= (NO VRBOLS fx) 

ANDAR RD= (NO 

AM NTAX NO Nol SYNCEODE MAP) 

/#7 = yNOGe FLOR NG 714 /OPTIMIZE /WARNINGS /NOD LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


00 
00! 
00! 
00! 
00! 
00! 


COMPILATION STATISTICS 


Run Time: #0 % seconds 
Elapsed Time: 170.17 seconds 


Dynamic Memory: 28 pages 


Page Faults: 91° 
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